ALGOL-M 

AN IMPLEMENTATION OF A 
HIGH-LEVEL BLOCK STRUCTURED LANGUAGE 
FOR A MICROPROCESSOR-BASED COMPUTER SYSTEM 



John P. Flynn 



NAVAL POSTGRADUATE SCHOOL 

Monterey, California 





ALGOL-M 

An Implementation of a 
High-level Block Structured Language 
for a Microprocessor-based Computer System 



by 



John P . Flynn 
and 

Mark S. Moranville 



September 1977 

Thesis Advisor: G. A. Kildall 



Approved for public release; distribution unlimited, 



T 180635 



SECURITY CLASSIFICATION of THIS PAGE Omtm Entmrmd) 



REPORT DOCUMENTATION PAGE 


READ INSTRUCTIONS 
BEFORE COMPLETING FORM 


T7 REPORT NUMBER 


2. GOVT ACCESSION NO. 


3. RECIPIENT'S CATALOG NUMBER 


4. TITLE (and Subtltlm) 

ALGOL-M 

An Implementation of a High-level Block 
Structured Language for a Microprocessor- 
Joased Computer System 


5. TYPE OF REPORT & PERIOD COVERED 

Master’s Thesis? 
September 1977 


6. PERFORMING ORG. REPORT NUMBER 


7. AUTHOR^ 

John P . Flynn 
Mark S. Moranville 


6. CONTRACT OR GRANT NUMBER/*; 


9. PERFORMING ORGANIZATION NAME AND ADDRESS 

Naval Postgraduate School 
Monterey, California 93940 


10. PROGRAM ELEMENT. PROJECT, TASK 
AREA 4 WORK UNIT NUMBERS 


11. controlling OFFICE name and aooress 

Naval Postgraduate School 
Monterey, California 93940 


12. REPORT OATE 

September 1977 


13. NUMBER OF PAGES 


u. MONITORING AGENCY name A AOORESSf// dfffmrmnt from Controlling Offlcm) 

Naval Postgraduate School 
Monterey, California 93940 


15. SECURITY CLASS, (of thtm rmport ) 

Unclass if ied 


\5m. DECLASSI F| CATION/ DOWNGRADING 

schedule 


16. DISTRIBUTION STATEMENT (of thl § Rmport) 

Approved for public release; distribution unlimited 



17. OlSTRI BUTION STATEMENT (of thm mbmtrmct mntmrmd in Btoc k 20, If dfffmrmnt from Rmport) 



IS. SUPPLEMENTARY NOTES 



19. KEY WORDS (Contlnum on rmrmrmm midm If nmcmmmmry and identity by biock numbmr) 

Microcompute r Interpreter 

ALGOL-M 

Compi le r 



20. ABSTRACT (Continv on rmrmrmm midm It nmcmmmary and Identify by biock numbme) 

The design and implementation of the ALGOL-M programming 
language for use on a microprocessor-based system is described. 
The implementation is comprised of two subsystems, a compiler 



1473 EDITION OF I NOV «S IS OBSOLETE 
S/N 0 102*014- 660 1 i 



nn FORM 

w I JAN 73 



SECURITY CLASSIFICATION OF THIS PAGE (Whmn Dots Entmrmd) 



$HCU*1TV CLASSIFICATION or This P>GE^w P*e« EnfrmJ 



which generates code for a hypothetical zero-address 
machine and a run-time monitor which executes this code 
The system was implemented in PL/M to run on an 8080 
microcomputer in a diskette-based environment with at 
least 20K bytes of user storage. 



DD Form 1473 
, 1 Jan 73 

S/N 0102-014-6601 



SECURITY CL A|*l ric ATION 0 F THIS *AGEr**«" Dmtm Enfemd) 



Approved for public release; distribution unlimited 



ALGOL-M 

An I mo 1 emen t a t i on of a 
High-level Block Structured Lanauage 
for a Microprocessor-based Comouter System 



by 

John P. .Flynn 

Lieutenant Commander/ United States Navy 
0 . S • , United States Naval Academy, 19<S5 

and 

Mark S. M oranv file 
Lieutenant, United States Navy 
d.3., Oregon State University, 19 7£ 



SuDmi t ted m oartial fulfillment of the 
requirements for tne decree of 



MASTER OF SCIENCE IN COMPUTER SCIEMCF 



from the 

NAVAL POSTGRADUATE SCHOOL 
SEPTEMBER, 1977 



Tv) 'G- ^ * 

£ 5 > -- 

c ' 



ABSTRACT 



The design and ifnrlementation of the ALGOL-^ oroyramminq 
lanouaqe for use on a microorocessor-based system is 
aescrioed. The implementation is comorisea of two 
suosystems* a compiler which qenerates code for a 
hypothetical zero-adaress machine and a run-time monitor 
which executes this code. The system was implemented in 
PL/M to run on an oOSO microcomputer in a diskette-based 
environment with at least id 0 h bytes of user storace. 
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INTRODUCTION 



A. HISTORY OF ALGOL 

The definition of the alaorithmic I anauage (ALGO L -60) 
was the result of the work of a committee of distinauished 
com outer scientists era was originally oublished in l ° b 0 
1111. The ourpose of t h e developers of ALGOL-60 was the 
estao) i shment of a universal computer 1 anauage specifically 
designed to allow for the 1 oni cal and efficient program 
representation of algorithms. Additional versions and 
extensions of ALGOL-oO such as ALGGL-bS L i 5 1 and ALGOL - trt 
Ub) have been rievelooed and have found acceptance orimarily 
in the academic communities and in Europe. The language 
ALGOL-E [101 is also based on ALGOL-oO and was developed as 
part of a complete system d e sinned for teaching orograrrmina 
lanauage concepts. 

8. MICROCOMPUTER SOFT;, ARE 

The rapid development of microcomputer hardware since 
1 ° 7 S has aener3l I v resulted in a considerable lag in the 
corresponding development of compatible software* 
particularly that of hi ah lev^l lanauages. The Intel 6 0 b 0 
microorocessor is one of t h * e w microprocessors w h i c n has 
endured long enouah to permit software development to 



advance beyond ^ne ass p mblv 1 anauage level. 



H i an level 



lanauages which have been developed for 8080 cased systems 
by students at the Naval Postgraduate School include a macro 
assembler ( ML - fl 0 ) 1121/ a BASIC comoiler/interpreter 
CBASIC-E) f 6 ] , and a COBOL comoiler/interpreter ( M I C p 0 - 
COBOL) f 2 1 • The majority of hi ah level lanauages currently 
available for microcomputer based systems are extensions of 
the oriqinal Dartmouth BASIC and/ although they allow for a 
reasonable level of orogra^mino sophistication/ they are 
encumbered by the inherent limitations of the BASIC 
lanauage constructs. 

C. OBJECTIVES OF ALGOL -M 

The major objective of this project was to oevelcp a 
dynamic/ block-structured/ recursive high level lanquage 
whicn would provide adeauate orogrammina cower and 
flexibility for applications rroqrammina usinq microcomputer 
baseo svstems, ALGOL constructs were chosen because of 
their simplicity ano power and because it was Possible to 
write the grammar in LALRCl) form for use with available 
compiler-compiler Generated parse tables t 1 4 ] . ALGOL was 
developea to run on 8080 based m i c r oc ompu t e r systems because 
of the availability of a high level svstem development 
language ( P L / M ) [8] i cn produces 8080 object code and 
which could be run on the Naval Post Graduate School's IBM 
360, The availability o * an 8080 based disk operat ina 
svstem ( C P / M ) 1131 simulator on the IBM 360 was also a 
strong factor in the choice of 8 0 p 0 microprocessor and CP/M 



o 



one rat i ng svste<" 
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ALGOL-M LANGUAGE DESCRIPTION 



A. FEATURES OF THE ALGOL-M LANGUAGE 

Although ALGOL- M wa s model eH after ALGOL-60, no attempt 
was made to make it a formal subset of ALGOL-60. This was 
done intentional 1 v in orcer to provide a languaqe which 
would oe best suited to the ne^as of applications 
procrammers using microcomputer systems. however, the basic 
structure of ALGOL-M is similar enouah to ALGQL-60 to allow 
simple conversion of proarams from one 1 anquaae to the 
other. This was considered particularly important in view 
of the fact that the standard publication language is 
ALGOL-60. Therefore, trier** exists a large source of 

applications programs ana library procedures which can 
simply converted to execute under ALGOL-M. 

i. Type Declarations 

ALGOL-M supports three types of variables: infeaers, 

aecimals, and strings. Tnteaers may be any value between 
-lb, 364 and +16,3^4. Decimals may be declared witn up to IF 
digits of precision and strincs may oe declared as long as 
255 characters. The default precision for decimals is ten 
digits and the default length for strincs is ten characters. 
Decimal and strino variable 1 e n a t K s may be inteoer variables 
*hich can b *> assicned actual values at run-time. 



Another forr of declaration in ALGUL- M is the array 



declaration. Arrays rrav nave up to 255 dimensions wi tn 
each dimension ranqinc from - 1 b * 3 8 4 to +16*384. The maximum 
8080 microprocesor a a dress soace of 64k ovtes limits 
practical array sizes to somethina smaller than the 
maximum. Dimension bounds may be integer variables with the 
actual values assigned at run-time. Apravs may be of type 
integer* decimal or strino. 

2. Arithmetic Processing 

Integer and binary coded decimal arithmetic are 
supported under ALGOL- M . Tnteaers may be used in decimal 
expressions and will be converted to decimals at run-time. 
The inteaer and decimal comoarisons of less-than (<)* 
greater-than f>)* ecual-to (=)* not-eoual-to (<>1* less- 
t han-o r-eoua 1 - 1 o (<=)* and o r ® a t e r - 1 h an -o r -^qu a 1 - 1 o (>-) are 
provided. Additionally* the looical operators AND* OR and 
NOT are a v a i ladle. 

3. Control Structures 

ALGOL- M control structures consist of BEGIN* E M D * 
FOR* IF THEM* IF THEN ELSF* WHILE* CASE and GOTO constructs. 
Function and procedure calls are also used as control 
structures. ALGOL- M is a block stuctured languaoe with a 
block normally bracketed by a BEGIN ana an END, Blocks mav 
be nested within otner blocks to nine levels. Variables 
which are declared within a ol ock can onlv oe referenced 
within that block or a block nested within that block. Unce 
orooram control proceeds outside o * a block in which a 



v a r i a h 1 e 



has oeen declared* 



t n e 



variable 



may not oe 



referenced and, in fact/ run-time storage snace for that 
variable no lonaer exists. 

Functions/ when called/ return an inteaer/ decimal 
or strina value decendinn on the tyoe of the function. 
Procedures do not return a value when called. Both 

functions and procedures may have zero or more parameters 
which are call by value and both may be called recursively. 
Additionally/ functions and orocedures may be referenced 
before they are declared. 

4. Input/OutDut 

The ALGOL-M ft P I T £ statement causes output to the 
console on a new line. The desired outout is specified in a 
write list which is enclosed in parentheses. Strinq 

constants may be usee in a write list and are characterized 
oy beino enclosed in quotation marks. Any comoination of 
integer/ decimal anc strina variables or expressions may 
also be used in a write list. A ’"RITEON statement is also 
available which is essentially the same as the WHITE 
statement except tnat outout continues on the same line as 
the outout from a orevious WRITE nr ft P I T E 0 l\i statement. ft h e n 
a total of *0 characters have ceen written to the console/ a 
new line is started automatically. A TAB option may also be 
used in the write list which causes the followinc item in 
the write list to oe spaced to the rioht by a soecifed 
amount . 

Console inout is accomplished bv the READ statement 
followed Pv a read list of any comoination of integer/ 



decimal and strina v a r i a o 1 e s enclosed in parentheses. If 
embedded blanks are desired in the i nout 1 tor a strino 
variable/ the console input must be enclosed in Quotation 
marks* A READ statement will result in a Halt in orogram 
execution at run-time until the input values are typed at 
the console and a carriaoe return is sent. If the values 
typed at the console match the read list in number and type/ 
proqram execution continues. If an error as to number or 
type of variables from the console occurs/ program execution 
is again halted until values are re-entered on the console. 

5. Disk Access 

ALGHL-M proarams may read data from/ or write data 
to/ one or more disx files which may be located on one or 
more dis< drives. When file inout or outouf is desired/ 
the appropriate READ or WRITE statement is modifiea oy 
placing a filename icentifier immediately after RFAD or 
WRITE. The actual name ot the file may be assioned to the 
file name identifier when the proaram is written or it mav 
be assigned at run-time. Various disk drives are raf pranced 
oy the letters A through 2. A specific drive mav oe 
specified Dv orefixino the actual fil» name with the desired 
drive letter followed by a colon. Additionally/ if random 
file access is desired/ t K e * i 1 e name identifier may be 
followed by an integer constant/ variable or expression 
enclosed in parentneses. This integer value specifies the 
record within the file wnich is to be used for innut/output. 



Prior to the use of a file name identifier in a READ 



or WRITE statement/ the file name identifier must a o p e a r in 



a file declaration statement . The file name identifier can 
only he referenced within the same block for a lower bloc<) 
as the file declaration. Files are normally treated as 
unolocked sequential files# However/ if blocked files are 
aesired/ the record length may oot i onal 1 v he specified in 
parentheses after the file name identifier in the file 
declaration statement. 



Ill 



IMPLEMENT A r ION 



A. COMPILER IMPLEMENTATION 

1* Compiler Oraani zaf i on 

The comoiler was designed to read source 1 anauaqe 
statements from a diskette ana to produce an intermediate 
I anauage file with optional source listina at the console. 
A two pass aooroacn was used to facilitate the 

implementation of GOTC statements* forward subroutines* and 
control statements. Pass one builds the symbol table and 
saves all branch locations for resolution aurina pass two. 

Pass one also computes the size of the program reference 

table (PPT) and writes this information out to th<* 

intermediate file. Pass two resolves all forward references 
and emits code to the intermediate file on disk. 

2. Scanner 

The scanner analyses the source program ana sends a 
sequence of tokens to the parser. In adai t i on, fhe scanner 
provides a listing c f the source file (if requested), 

ignores remarks, and sets the compiler toggles. Analysis o* 
the first non-blank character in the inout file aet^r^ines 
the general class of the next token. Th a rest o* the token 
is then scanned as it is placed into the accumulator 

( A C C U M ) . The first oyte of A C C 1 1 M contains the length of the 



t o < e n 



In the case of constants ^ hat exceed f he size of 



ACCUM (3c! bytes) a continuation flap is set. This Derm its 
the scanner and narser to continue as necessary to accept 
the entire constant. 

hhen the scanner recoqnizes an identifier it 
searches the vocabulary table (VOCAb) to determine if the 
identifier is a reserved word. If found/ the token number 
associated with the reserved word’s position in the VOCAB 
table is returned. The reserved word COMMENT is a special 
case since it is not part of the grammar ana is hanaled 
entirely by the scanner. The VOCAB table is one of the 
tad es provided bv the L A L R f 1 ) parse table nenerat'or 114 ] , 

Constants are passed unconverted from the scanner 
throuah the parser to the intermediate f i 1 e • A)thouch this 
procedure does not allow constant checking during compile 
time/ it does save soace in t h compiler. The conversion 
routines must oe in the run-time system for console incut 
and their duplication in the compiler was not considered 
necessa r y . 

3 • Symho 1 Table 

The svmbol table stores attributes of proaram and 
compiler aenerated entities such as identifiers/ procedures/ 
ana lapels. The symbol table is constructed durina pass one 



and 


the 


stored 


information is used by the compi 


1 e r 


duri no 


pass 


two 


to ve r i 


fv that the proaram is semantical! 


y 


correct 


and 


t o 


assist 


in code Generation, Access to 


the 


symbol 



table is accomplished throuoh various subroutines which 



operate 



on t K e symbol table tnrouqh the use of based global 



var i ab ) es 



The symbol ’'able is modeled after the BASIC-E svmbol 
table [ b 1 . It is an unordered linear list of entries which 
grows toward the too of memory. Individual entries are 
accessed via a chained hash addressing techniaue as 
illustrated in p inure 1. Each location in the hash table 
heads a linked list whose printnemes all evaluate to the 
same hash address. If th^re is a zero in the hash table 
then there are no entries * o r that particular hash value. 
During references to tne symbol table/ the global variable 
PRINT NAME contains the address of a variable which contains 
the lenoth of the variable name followed by the name itself. 
The variable SY^HASH contains the sum of the ASCII 
characters tnat make uo the variable name/ modulo 64. 
Entries which hash to the sam^ value are chained so that the 
latest entry is the first one on the chain. Thev are/ 
however/ stored in the svmbol table in the order in which 
they aooear in the orogram. 



Each entry in 

following information! 


the svmbol table contains tne 


lenath of printname 


1 byte 


collision field 


? bytes 


pri ntname 


variable lenath 


t vpe 


1 byre 


add ress 


? bytes 


clock level 


t byte 



suDtyoe 



t byte 



SYMBOL TABLE STRUCTURE 



SYMBOL 

TABLE 






COLLISION 

FIELD 



COLLISION 

FIELD 



TWO ENTRIES 
WITH SAME 
HASH VALUES 



FIGURE 1 
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The address field 



i ndicates 



the 



identifier's 



position in the PPT unless the identifier is a label. Fo r 
labels? it indicates the label's position in the code area. 
For subroutines/ there are two extra symool table entries: 
a parameter field which indicates the number of parameters 
associated with the subroutine (1 bvte) / and another aadress 
field which i n o i c a t p 3 the Position of the subroutine in the 
code area . 

Since ALGOl-M is completely block structured/ thare 
is a block number associated with each iaentifier in tne 
svmbol table. A "previous block level stack" was designed 
in order to retain the symbol table for aeouaci ng purooses 
aurina run-time. Each active block is used as an index into 
this stack which contains all blocks to which the active 
block is subordinate. When a block is deactivated ( i . e . / 
the c o r r e soond i no block end is encountered)/ the block 
number is removed from the previous bloc< stack and 
therefore any identifiers associated with that block become 
i naccess i b 1 e . 

Two different lookup routines warp designed to 
facilitate symbol table lookup. The first is FuLLS LOOKUP 
which searches the current block and all outer blocks for an 
identifier. The second is NQPMAL^LOQKUP which simply checks 
the current block level. In most cases/ FuLL^LOUKuP is 
used to determine if an identifier beina used has been 
declared and N 0 R M A L J l 0 0 K IJ P is used to determine if an 
identifier being declared has been previously declared in 
the same block level. 
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Parser 



The LALP oarser is modeled after that o* the BASIC-E 
parser ft>], which is a table-driven pushdown automaton. It 
receives tokens from the scanner and analyzes them to 
determine if they are part of the ALGOL-M grammar. u hen the 
parser accents a token, one of the following actions will 
be taken. It mav save the token and continue to accept 
tokens in the lookahead s t at e r or it mav recoanize the rioht 
part of one of the valid productions and aoply the 
production state (cause a reduction to take place). Finally 
the parser mav determine that the tokens received ao not 
form a valid riant oart for a production in the grammar and 
cause a syntax error to oe printed. 

when an error is detected RECOVEK is called ana the 
parser oacks up a state with an attempt to continue parsina 
from that state. If this fails, it continues to pack up 
until the ena of the currently oendinq reduction is reacned. 
At that point the baa token is bypassed ana an attempt to 
parse the follow ina t o k e m is maae until an acceptable token 
is found. 

The major data structures in the parser are the 
LALF(t) parse tables and the parse stacks. The parse stacks 
consist of a state stack and six auxiliary stacks. Thes* 
auxiliary stacks are parallel to the parse stack and are 
used to store information needea during code Generation. 
The information stored in these stacks includes variable 



types, subtypes 



and variable addresses 
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Code Generation 



The parser not only verifies the syntax of source 
statements, but also controls code Generation bv associatina 
semantic actions with reductions. W hen a reduction takes 
place, the procedure SYNTHESIZE is called with the 
production number as a parameter. SYNTHESIZE cooies the 
needed semantic information from the parse stacks into 
simole variables (tc avoid ^xtensi v a subscnnt ina) and 
performs the apcropriate semantic action. This is 
accomplished by the use of a large case statement with the 
production number as a kev. The syntax of the 1 anguaae, 
along with the semantic actions taken, is listed in Appendix 
E . 



b. INTERPRETER IMPLEMENTATION 



1. Building the A L 0 0 L - M Pseudo Machine 
The ALGOL-M cseudo machine, as shown in F inure <2, 
is a software emulation of a stack-oriented CPU with an 
instruction set which is particularly well suited for 
execution of ALGOL- M programs. Th^ ALGOL-M interpreter 
is loaded at address 100 h e * (as are all executable proarams 
under the CP/M oneraM ng system) and proceeds to read the 
ALGOL-M intermediate code from disk, constructing the pseuao 
machine beoining at the first tree memory location. The 
ALGOL-M intermediate code is read into a buffer in bvte 

segments. The first two bytes of the intermediate code 
represent an integer value equal to the number of bytes 



to be used for the program reference table CPRT) 



Each PRT 



location is two bytes in length and is used to contain 
information relative to ALGOL-M proaram identifiers, arrays, 
and subrout i nes . 

The rerraininc intermediate code is manipulated 
in accordance with the alaorithm shown in Piqure i in 
oraer to construct the pseudo machine code area. 

dm Overview of the Interpreter 

The ALGOL-M interpreter uses the oseudo machine code 
area as inout data. Each pseudo machine operator is 
eauated to an integer value which is evaluated in order to 
provide the correct entrv point into a large case statement 
in the interpreter. Each entrv in the case statement 
contains the necessarv code to cause proper run-time 
execution of the specific ALGOL-M pseudo instruction* 
The case statement is executed continually until the 
ALGOL-M program has been completed, at which time control 
is passed back to the operating svstem. A run-time stack is 
used to facilitate the execution of ALGOL-M pseuao 
instructions. The stack can viewed as being two bytes 
wide and expanaino or contraction above the ALGOL-M 
machine code area as necessary. The too item on the stack 
is addressed by the variable PA, while the next-to-toc item 
is addressed by PB. Th° contents of the two Bytes on too 
of the stack are referenced by the variable ARA while 
the two byte contents of the next-to-tcp stack position are 
referenced by the variable APB* The lo* oraer bvte 
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contents of the too and next-to-too stack locations 
are referenced by the variables BRA and BRB 
r esoec t i ve 1 y • The various stack variables are depicted in 
Figure 4 . 



3. Allocation of Storaae Soace 

kun-time storaae space is reauirea for the 
values associated with AI.GOL-M orogram i aent i f i ers which 
have been declared as integer, decimal/ or string values, 
and for information needed to process arravs and 
subroutines. A seaue^tial number is assianed to each new 
identifier as it is recognized by the compiler. This number 



is useo to 


reference 


the p RT at 


run- 1 


i me i n 


oraer to 


or retrieve 


the value 


assoc iateh 


with 


each 


i ae n t i f j e r 



a . In t ege r s 

Integer values range from -lo,i84 to +16,364 and 
are stored directly in the two by t^s allocated in the PkT 
for integer identifiers, A maximum lenoth of two ovtes for 
integer values was chosen because the resulting ranee of 
possible inteoer values was considered adeauate for the 
primary use of inteaers as oroqram control counters, such as 
array subscripts and loop boundaries, Aad i t l ona 1 1 y , two- 
bvte values were the most convenient size to work with in 
the implementation l a^guaoe PL/ M f 8 1 . The hion oraer oit of 
the integer representation is the sign bit, with 
zero indicating a positive value and one indicating a 
negative value. The second oit of the inteoer 
representation is al wavs zero in order to permit 



?b 
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FIGURE 4 



differentation between integers and other types on the 



stack. The ALGOL -to internal form for addresses is also a 
two byte value. 



b. Decimals 

Decimal values up to 16 dioits in length are 
permitted in the A L G 0 L - M lanquaae. Each decimal 
identifier is associated with a uniou* p RT entry. Th<* value 
stored in the two oyte P R T entry represents the run- 
time address of the location on the A L G 0 L - M stack where 
the actual decimal value is stored. [he format for 
decimal storaoe is shown in Figure 6. 

The next-to-lest byte of the allocated space 
for decimal identifiers contains the number of oytes used 
for storaoe of that value. This value is a function of the 
size declared for the decimal bv tne orogrammer and rray be 
delayed until run-time. A maximum of 1 p diaits of 
precision may be declared with the default orec i sion 
being ten digits. The first byte of the decimal storage 
area contains a value r°oresent i na the number of bytes 
used to hold tne actual packed diaits. This value mav be 
less than the number of bvtes whicn could oe stored in the 
allocated area. In order to save storaoe soace/ the decimal 
values are oacked two digits r e r byte of storage space. 

ALGOL-M is a ol oc< structured 1 anguaae based 
uoon a stack model for execution. Thus, it allows efficient 
allocation of storage for decimal identifiers. A 
block is normally bracxeted by tne ALGOL- M keywords 
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BEGIN 

INTEGER A, B ; 
A := 3; 

B := -2; 

END 



SIGN BIT 
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00000000 ' 
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BEGIN 

DECIMAL (12) X; 

X := 123456.78; 
END 



OFFSET TO 
BOTTOM OF 
DECIMAL 
STORAGE 



ACTUAL NO. ' 
OF BYTES 
USED FOR 
DECIMAL 
VALUE 
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1 
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BEGIN and END. Blocks may be embedded within a higher 
level block as shown in Figure 7. Identifiers which are 
declared in a given clock are considered local to that 
block ano global to any lower lever block and therefore may 
be referenced from those blocks. However, once 
execution of an &LGOL- M program Proceeds beyond a qiven 
bloc*, the identifiers declared within tnat block may no 
lonqer be referenced and, in fact, tne storage allocated for 
those identifiers is removed from the ALGOL-M machine 
stack. 

c . 5 1 r i nos 

Strinas of ASCII characters uo t- o bytes in 
lenath are perm i ted in ALGOL- M . In the same manner as used 
for decimal storaoe, the strino identifier is associated 
with a unique p R T entrv. The corresoondina PRT entry 
contains tne address of the actual string storace space on 
the ALG0 L- m stack. The format for string storage is 
shown in Fjaure 6. The next-tc-last byte of the allocated 
storaoe soace for a strino identifier contains the value of 
the number of bytes actually allocated by the proorammer un 



to a maximum of 555 


byfes. Tbe 


first 


byte 


o f 


the 


allocated strina storage 


area contains 


r h e 


value 


o f 


tne 



actual number of ASCII characters stored in the allocated 
area. The concept of storaoe allocation as related to block 
levels is the same as described for decimal identifiers. 



BLOCK LEVEL 0 >BEGIN 

DECIMAL A , B ,C ; 

BLOCK LEVEL 1 > BEGIN 

STRING X,Y,Z; 

BLOCK LEVEL 2 >• BEGIN 

DECIMAL C,D,E ; 

END BLOCK LEVEL 2 > END; 

END BLOCK LEVEL 1 > END; 
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BEGIN 

STRING (9) TESTWORD; 
TESTWORD := "HELLO"; 
END 



OFFSET TO 
BOTTOM OF 
STRING 
STORAGE 



ACTUAL 1 
NUMBER OF \ 

characters! 

STORED 



10 
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d . Arrays 

ALGOL-M arrays may be of type integer, 
decimal, or string. Arrays may consist of up to Pb5 

dimensions with each dimension containino uo to 16,364 
elements. The uoper and lower bounds of each dimension 
may consist of any positive infeaers, variables, or 
arithmetic expressions. Eacn array name is associated 
with a unique P P T entry. The PPT entry contains tne address 
pointer to the actual array storage area on the ALGOL-M 
machine stac<. f h e first part of the array storaoe area on 
the stack consists of the displacement vector and other 
information which is necessary to calculate the address 
of any specific array element at run-time. The format for 
array storaoe is shown in ^ioure 9. The allocated storage 
area for each array element is exactly like that used for 
integers, decimals, or strinos which are declared as 
single identifiers. Th e algorithm used for calculatina the 

displacement vector is expressed as: 

( iFI *' 0 Tue*/ c;THcfl.w.Sc 

Dr = *1 ) * Dx+i 

where N is the number of dimensions, I is the 

respective dimension, and U is the upper bound ana L is the 
lower bound of a dimension. 

The offset vector, V, is calculated bv: 

v = - l_ N udi 

in 

The offset vector represents the correction necessary for 
non- z e ro-c r i g i n suoscriots. This approach to locatinq 

elements in dynamically declared arrays is essentially tn<= 
same as that used in ALGOL-P" flh] . 
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a 



Storaoe and Retrieval of Variables 



Once allocation of storaqe for variables has 
oeen completed at run-time* storage and retrieval of actual 
values is relatively simple. A check is first made to 
insure that the number of bytes to oe stored is less than 
or eoual to the storaoe space allocated for a oiven 
variable. In the case of strings* if the destination 
storaoe space is not laroe enough to hold the entire 
strinq* as many characters as oossiole are stored and a 
run-time warning messaae is issued advisina that string 
overflow has occurred. For decimal storage* if the total 
number of packed digits to be stored is larger tnan tne 
available storage space* non-significant digits are deleted 
until the decimal value can oe stored. If a sianificant 
digit must be del e^ec in order to stor^ a decimal value* an 
error messaae is aenera^ed and the stored decimal value 
is aroitrarily set to 1.0 to allow continuation of program 
e*ecut i on . 

Array elements are stored exact 1 y as the 
c o r r e s pond i n g single element variables. However* the 
data located at the beainnina of each array storage area 
(refer to Figure 9 ) is used to calculate ♦'he actual 
location of a specific arrav element. This is accomplished 
oy initial izina the offset variable to the value of the 
rightmost suPscrioted value. This value is then added to 
the product of the next rightmost subscripted value and the 
n-1 displacement vector value. 'this procedure is continued 
until the left-most subscripted value has oeen used in 
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the calculation. Next the offset vector, v , plus one, is 
suot racted from the offset variable and the result is 
multiplied by the size of the area allocated to each array 
element. The result of this calculation is the total 
offset, in bytes, from the beginning of the storage area 
for the array to the specific array element in question. A 
check is made to insure the calculated total offset is 
not areater than the offset which would result in access to 
the last array element. An error message is generated by 
the interpreter if a subscripted variable is referenced with 
subscripts that are not witnin the declared array 
dimensions. 



5. Arithmetic Operations 

Arithmetic operations for inteoer variables are 
straightforward because t h e implementation lannuage, PL/M 
[*J , provides all of the necessary two byte arithmetic 
operations. Therefore, the two inteoer values which are 
to be adaeo, subtracted, multiplied, or divided are placed 
one above the other on the stack ana the appropriate 
routine performs the necessary arithmetic operation, 
replacing the orici nal two integer values with f ne 

result of that operation* Th* resulting value is then 
available to store irto the space allocated for an inteoer 
variable or to be used as one of the integer values * o r 
continued arithmetic operations. 

Decimal arithmetic is accomplished Dv manipulating 
packed decimal strings, each of which is loaded in a ten 
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oyte reaister (two d i c i t s per byte) 



The result of the 



decimal arithmetic operation is stored in a third 
register. Decimal values are also stored in the packed 
decimal form* shown in Fiaure 6. Decimal strinas are only 
unpacked when and if they are written to disk or console 
at run-ti^e. Decimal addition is accomplished bv 
addina the two registers# subtraction is done usina 
nines complement arithmetic* multiplication is done 
throudh a shift and add algorithm, and division by a shift 
and subtract method. After the decimal arithmetic 
ooeration is completed# rhe result is placed on the too of 
the stack in preparation for a d e c i m, a 1 store operation or 
use as a new value in a conf inuinc alaehraic expression. 



o. Strinq Operations 

The ALGOL-M compiler is designed to handle strings 
up to 255 characters in length. The concatenation operator 
allows two or more strings to be combined to produce a new 
strino consistina of all the characters contained in 
the o r i q i n a 1 strings. The process of concatenation takes 
place on the stacx with strings oemg combined 
repeatedly as necessary for multiple concatenations. 
The resultina strinc is then available for storage in 
the space allocated to a string identifier. If the result 
of concatenation produces a string which is lonoer than 
the allocated storage space# the string is truncated as 
necessary and an error message is issued by the interpreter. 
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Subrout ines 



There are two tvpes of subroutines in ALGOL-to: 
functions and procedures. The only difference between the 
two is that a function returns a value to the too of the 
stack while a procedure does not. Subroutines are fully 
recursive ana can be called prior to their declaration. 

a* Invocation 

A subroutine can be invoked with zero or more 
actual parameters. The actual Parameters consist of 
integer^ decimal/ or string expressions which are 
evaluated and nassea to the subroutine via the 
execution stack. In addition to parameter values/ the only 
other information needed to call a procedure is the 
procedure address in the code area. The actual format of 
the stack at the point of a subroutine call is inaicateo in 
Figure 10. 

P. Storage Allocation 

Storaoe for variables and parameters declared 
within a suoroutine is allocated on the stack at run-time. 
The actual parameters ana the subroutine call information is 
also stored on the execution stack. To allow subroutine 
call by value and to save memcrv/ it was necessary to move 
the actual parameter values and subroutine call information 
off the stacK prior to allocating storage for the formal 
parameters and local variables. This was accomplished by 
moving them to the too of available memory. Storage can 
then oe allocated for the formal parameters on top of trie 
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stack in the normal manner. This move was accomo I i shed 
through the SAV ooerator as illustrated in Figure 11. The 
SAV operator also checks to determine if the call is a 
recursive cal) and if sor saves the procedure control block 
(PCB) on too of the stack. The PCB is similar in structure 
to that of ALGOL-ETlOl. Althouqh this procedure slows aown 
the execution soeed of the interpreter/ it was considered 
more important to save memory soace. Storing suorout in? 
values on the stack as indicated above simolifies the de- 
allocation of memory at the end of the subroutine. This is 
accomplished by simnly removing elements from the stack down 
to the aooropriate level. 

c. Parameter Mapping 

Parameter mapoinq is done through the use of tne 
S V 2 operator as illustrated in Figure 1 ct . The operator 
copies the actual parameter information at tne toe of memory 
into the area allocated on too of the stack. The PCB 
which keeps track of subroutine variables is then set with 
pointers to the current parameter values. 

d. Function c eturn Value 

Included with the allocatea area for parameters 
ana local variables/ tnere is an additional allocated 
area for the return value of functions. The function name 
is treated as a simple variable within the function 
and the return val u e is assianed to it. This value is 
copied to the top of the stack when the function 
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e . External Functions 

The ALGOL-M grammar suoports external 
function declarations and/ although they have not been 
implemented/ their design has been considered. External 
functions are conceived to be ALGOL-M intermediate files 
which could be dec 1 area and called from other ALGOL-M 
programs. The intermediate code for tnese files would 
be read from disk oy the compiler and integrated into the 
proaram intermediate code as if the external subroutine 
had in fact been a normal program subroutine. The 
grammar would reouire modification in order to allow a 
subroutine to oe compiled by itself. 

t. Forward References 

Forward suorout ine references are supported ov 
simply treating all undeclared identifiers as forward 
subroutine references durino oass one of the compiler. If 
on oass two these references hav^ not been resolved/ then 
an undeclared variable error is generated Dv the compiler. 

g. built-in Functions 

There are currently no built-in functions in 
ALGOL-M. However, their implementation has Deen 
considered. To implement built-in functions/ a simole 
modification to the symbol table structure would oe 
needed/ allowing the built-in function names to be entered 
in the symbol t a b l <=» when it is initialized. There 
would be an operator associated with each function name in 



the symbol fable wnich would indicate the run-time action to 



be taken 



This operator would be emitted each time the 



built-in function was referenced. 

8. I npu t -Ou t ou t 

Two basic types of input-output (I/O) are 
implemented in the A L G 0 L - M 1 annuage: console and disk. 
Console I/O refers to the device which is being used to 
provide commands to the system/ tynicallv a cathoae-rav 
tuoe terminal or a teletvoe. Input is acco^pl i shea via 
ALGOL -M orogram READ statements and output via WRITE or 
wPITEON statements. Inteaer a n d decimal values/ includina 
signs and decimal oointS/ are converted from their 
internal representation into ASCII characters which are 
provided to an operating system print routine for console 
output. String variables ana constants are stored in 
the ALGOL- M pseuoo-machi ne as ASCII strincs ana are sent 
character oy cnaracter to the system print routine. Consol ^ 
input is accomolishec via an operating system routine which 
reads one full console line into an ALGOL-M buffer. Tne 
interpreter examines the buffer and converts the ASCII 
characters in the buffer into the appropriate ALGOL- m 
internal decimal/ integer or sfrina format . The innut 
value is then stored in the space allocated for its 
variable name. 

The ALGOL-M READ or ^ D I T E statement for disk I/O 
contains the name of the disk file to be use a and/ 
optionally/ specifies the disk drive containing that file. 
The default drive is the currently lodged drive [4]. An 
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associate file identifier names with a specific entry in the 
ALGOL-M PRT. At run-time* space is allocated on the 
ALGOL-M stack for file control block CFC9) information 
necessary to interface tile ooeraMons with the 
operating system. In addition to the F C P * space is 
also allocated for a 12* byte I/O buffer for each declared 
file. The routines to convert packed decimal and integer 
numbers from internal form to ASCII f o r m , and vice-versa* 
which are used for writing to and readina from disk files 
are the same as those used for console I/O. Anv number of 
files may be open simultaneously and* as with all run- 
time storage* the soace allocated on the stack for file 
operations is recovered when the block is exited. 

9. ALGOL-M Pseudo Operators 

a. Description of Interpreter Variaoles 

The top item on the ALGOL-M stack is addressed 
bv the variable RA while the next-to too item on the stack 
is addressed by the variable p B. The value contained in the 
first two bvtes addressee bv p A and PB are referenced by *he 
variables APA and APB respectively. The contents of the 
low-order byte of A R A and ARB is referenced by the variable 
BPA or BRP respectively. The structure of the stack is 
shown in Fiaure 4. Decimal and string values may oe 
represented on th<=» stack by an address which yields the 
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actual storage area for the value* or by the actual value 
itself stored as ore of the items on the stack. v\hen a 
aecimal or string value is stored on the stack* it is 
referred to as a temporary value. TemDorary values are 
stored on the stack in oreparation for storage into the area 
allocated to a specific identifier* or for use as a value in 
the evaluation of an exoression. 

The ALGOL-M compiler generates various pseuao 
operators which were chosen to allow effective run-time 
execution of the ALGOL-M oseudo machine. Following is a 
list of the pseudo ooerators ana a brief Description of the 
action taken at run-time when each operator is encountered 
in the A L G 0 L - M code area. 

b. Literal Data References 

An initial check is made of each one byte 
operator in the code area in order to determine if the high 
order bit of that byte is set to one. If the high order bit 
is set th^n the least significant 14 bits of that byte and 
the following oyte arp automatically added to the address of 
the beamnina of the program reference table and placed on 
top of the stack. A cneck is then made of the second bit of 
the original byte and if it also is set to one the P ft T 
address now on too of the stack is replaced by the contents 
of the two bvtes pointed to by that address. These are 
referred to as LIT anc LITLOD operators. 

I Ml: (integer!. The follow i no two byte inteoer 
value is olacea on the stack. 
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SIR: (strina) . The program counter is 
incremented oast the following string constant and the 
address of the next-tc-last bvte of the string constant is 
placed on the stack. 

OFCT: (decimal). The proaram counter is 
incremented oast the following decimal constant and the 
address of the next-tc-1 ast byt* of the decimal is olacea on 
the stack. The next-to-1 ast byte of the decimal constant 
contains the offset to the *irst byte of the constant which 
in turn contains the value of the number of bvtes in which 
actual decimal digits are stored. 

I M 1: (load a one byte integer). The value of 
the f o 1 1 o w i n a byte is converted t Q a two oyte value and 
placed on the stac<. 

I V 2 : (load a two byte integer). The follow i n a 
two Oyte value is placed on the stack in reverse order. 

c. Allocation Operators 
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dec imal variable. 

ALS: (allocate string). Storage for a s f rina 

variable is allocated on the stack and the address of the 
allocated area is placed in the PPT entry for tne specific 
string variaole. 

AID! (allocate i nf e r med i a f e decimal). The same 



action is taken as in ALD except the declared decimal lenoth 



is left on too of the stack in oreparat ion for the next 



allocation 
code area. 
i den t i f i e rs 

action is 
that string 



which is exoectea to immediately follow in the 
This ooerator is used when several decimal 
are declared in a single declaration statement. 
AIS: (allocate intermediate strino). The same 

taken as in the AID operator with the exception 
allocation is used. 



a. Arithmetic Operators 

ADI: (add integer). The integer values of the 
top two items on tne stack are re placed by their integer 
sum . 

ADD: (ado decimal). The decimal value of the 
top item on the stack is loaded into decimal arithmetic 
register zero, and t h * value of the second item on the stack 
is loaded into decimal arithmetic register one. The two 
arithmetic registers are added with the result placed in 
register two. The original decimal values on the stack are 
replaced by the result of the arithmetic operation. 

S8I: (subtract inteqer). The second inteaer 
value on the stack is subtracted from the integer value on 
top of the stack, both values are removeo from tne stack and 
the result of the operation is placed on top of the stack. 

SBD: (subtract decimal). The same action is 
taken as in the ADD operator except the second item is 
subtracted from the top item on t K e stack. 

MPI: (multiply integer). The same action is 
taken as in the SBT operator except the too two items are 
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M P D : (multiply decimal J . The same action is 
taken as in the ADO operator except the too two items are 
multiplied. 

DVI: (divide in^eaer) , The same action is taken 
as in the SRI operator exceot the top item is divided Pv the 
second item. 

DVD: (divide decimal). The same action is taken 
as in the ADD operator except the top item is divided by tne 
second item. 

N E G : (negative). T K e sign of the decimal or 
integer on top of the stack is channed. 

CI1: (convert inteaer). The integer on too of 
the stack is replaced by its decimal eauivaient. 

CI2: (convert inteaer). The same action is 
taken as with C I 1 except the inteaer which is the second 
item on the stack is converted to a decimal. 

LSS: (integer less than). The integer value 
(ARB) is compared with t h * inteaer value ( A P A ) . Roth values 
are removed from the stack. If APB was less than AKA, tne 
value one is olacea on the stack/ otherwise the value zero 
is olacea on the stack. 

DLSS: (decimal less than). The aecimal on too 
of the stack is compared to the decimal wnich is the second 
item on the stack. I* the value on top of the stack is less 
than the second value on the stack/ both values are removed 
from the stack and reclaced bv the value one/ otherwise t^ev 
are replaced by the value zero. 
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GTR: (integer greater than). The same action is 
taken as in the LSS ooerator exceot a one is placed on the 
stack if ARB is greater than A R A . 

DGTR: (decimal greater than). The same action 



is taken 


as in 


the PLS3 ooerator exceot a 


one is olaced 


on 


the stack 


if the 


second decimal item 


is greater than the 


t oo 


dec i ma 1 


item. 
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a one 


is placed on 
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stack if the secona decimal item is eaual to f h e top decimal 
item. 

NEQ: (integer not ecual to). The same action is 
taken as in the EQL operator exceot a one is placed on the 
stack if ARR is not ecual to A R A # 

DNEQ: (decimal not equal * o ) . The same action 
is taken as in the DEQL operator exceot a one is nlac^a on 
the stack if the secorq decimal item is not eaual to the too 
decimal item. 

GEG: (integer greater than or equal to). The 
same action is taken as in the NEQ operator exceot a one is 
olaced on the stack if ARP is greater than or eaual to A R A . 

DGEQ: (decimal areater than or eaual to). T he 
same action is take^ as in the PNFQ ooerator except a one is 
placed on the stack if the second decimal item is areater 
t K an or eaual to the too decimal item. 



51 



LEU: ( i nteqer less than or equal to)* The same 
action is taken as in the GEQ ooerator except a one is 
placed on the stack if ARB is less than or equal to ARA. 

DLEQ: (decimal less than or eoual to). The same 
action is taken as in the DGEQ ooerator except a one is 
placed on the stack if the second decimal value is less than 
or equal to the top decimal value, 

NOT: (boolean not). This operator changes the 
result of any previous boolean operator oy c omp 1 emen t i no the 
value of the one or zero which was olaced on the stack by 
the previous operation. 

AMD: (boolean and). This operator checks tne 
top two values left on the stack by any two previous boolean 
operations. If both values are one then both values are 
replaced with a one? otherwise both values are replaced with 
a zero. 

OR: (boolean or). This ooerator checks the too 
two values left on the stack by any two previous boolean 
operations. If either value is a one then both values are 
replaced by a one: otherwise they are replaced by a zero. 

e. Strina Operators 

CAT: (concatenate). The two strings on too of 
the stack are combined to produce a new strina consisting of 
the characters of the second strina followed ov the 
characters of the first string. The two orioinal strings 
are popped from the stack and replaced bv the resultina 
concatenated string. 
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SLSS: (string less than). The same action is 
taken as in the DLSS operator except that a character by 
character string comparison is made using the ASCII 
character collating sequence. 

S G T P : (string greater than). The same action is 
taxen as in the DGTR operator except a strinq comparison is 
made « 

SEQL: (string eaual to). The same action is 
taken as in the DLOL operator except a strinq comparison is 
made . 

S M E Q : (string not eaual to). The same action is 
taKen as in the DNEQ operator except a strinq comparison is 
made . 

SGEO: (string greater than or equal to). Tne 
same action is taken as with DGEG except a string comparison 
i s made . 

SLEQ: (string less tnan or equal o ) . Tne same 
action is taken as with DLEQ except a strinq comparison is 
made . 

f . 3t ac < Ooerat ors 

XCh: (exchange). The value of tne toe two bytes 
on the stack ( A R A ) is exchanaed with the value of the next- 
to-toP two bytes on the stack(ARB). 

POP: (pop the stack). The stack pointer (RA) is 
moved to the position of the stackpointer (PB) and Pd is 
moved to point to the n x t item below its current oosition 
on tne stack* 
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LOO: (load)* The address value on the stack 
(ARA) is replaced by the two bytes pointed to by that 
address . 

DCB: (decrement block by more than one level): 
The stack do inter (RA) is decremented to the address stored 
in the block level table and the index to the block level 
table is decreased by the value stored in the next two bytes 
in the code area. The stack oointer (RB) is moved below RA 
to the too of the second item on the stack. 

BLI: (block level increment). T he index to the 
block level array is increased by one and the address of the 
top item on the stack is stored in the block level arrav. 

BLD: (block level decrement). The index to the 
block level array is decreased by one and the value of tne 
stack pointer (9A) is chanqed to the address stored in the 
block* level array. 

5 D R : (subtract stack values). This operator is 
used to subtract the second value on the stack from the too 
value on the stack us inn unsianed sixteen bit arithmetic. 
The two values are replaced bv the result of tne 
sub t r ac t ion. 

g. Array Ooerators 

RO^: (allocate arrav storage). The number of 
array dimensions , the uocer ana lower bounds of each 
dimension, and the arrav tyoe (inteaer, decimal, or string) 
are used to calculate the array displacement vector which is 
stored on the stack prior to allocation of storage for the 
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actual array elements. 

SUB: (calculate the offset to a specific array 
element). The array subscript is used in conjunction with 
the displacement vector information stored at the beainninq 
of the array storaae area to calculate the address of the 
specific array element being referenced bv the subscripted 
v a r i ab 1 e . 



h. Prooram Control Operators 

BRS: (oranch aosolute). The orogram counter is 
changed to an address one less than the address represented 
by the followino two bytes in the code area. 

BRC: (orarch conditional). If the v a 1 u p on too 
of the stack is zero, the prooram counter is chanaed as in 
bRS? otherwise the or eg ram continues with the next operator 
in the code area. 

BRA: (computed branch aosolute). The program 
counter is chanced relative to the start of the code area by 
the value on too of the stack. 

XIT: (exit the interpreter) . XTT caused return 
of control to the operating system. 

i. Store Operators 

STI: (store inteqer i nterredi ate) . The inteoer 
value which is the second item on the stack is stored in t n e 
P p T address which is the too item on the stack. The P R T 
address is then removed from the stack. 

SOI: (store decimal intermediate). The same 
action is taken as with STI except a decimal value is stored 
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in the allocated area pointed to by the address on top of 



the stack* 

SSI: (store strina interred i ate). The same 
action is taken as in the SDI ooerator exceot a string value 
is stored* 

SID: (store integer destruct). The same action 
is taken as in the SII ooerator exceot both the PRT address 
ana the integer value are removed fnom the stack. 

SDU: (store decimal destruct). The same action 
is taken as in the SID ooerator except t h e pointer to the 
decimal allocated area and the decimal value are removed 
f rom the stack. 

SSD: (store string destruct)* The same action 
is taken as' in the SDD ooerator exceot the pointer to tne 
strina allocated area and the strina value are removed from 
the stack* 

j. Input/Output Operators 

D^P: (dumo)* D W P signifies the end of writina a 
line to the console. A carriaoe return and line feed are 
output to the console via the ooerating svstem. 

w T C : (write integer to console). The inteoer 
value on too of the stack is converted to ASCII characters 
ana printed on the console. 

/v DC: (write decimal to console). The decimal 
value on too of the stack is converted to ASCII characters 
and printed on the console. 

WSC: (write strina to console). The ASCII 
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strina value on top of the stack is printed on the console. 

w I D : (write integer to disk). The integer value 
on top of the stack is converted to ASCII characters and 
stored in the disk buffer allocated for the file name 
specified in the source WRITE statement. 

wDD: (write decimal to disk). The decimal value 
on top of the stack is converted to ASCII characters and 
stored in the disk buffer allocated for the file name 
specified in the source WRITE statement. 

WSD : (write string to disk). The ASCII strina 
characters on top of the stack are stored in the disk buffer 
allocated for the file name specified in the source WRITE 
statement . 

RCI: (read console inteoer). The console read 
Duffer is scanned for the ASCII representation of an integer 
which is converted into internal form ana placed on too of 
the stack. 

RCO: (read console decimal). The console read 
Duffer is scanned for the ASCII representation of a decimal 
value which is converted into internal form and placed on 
top of the stack. 

RCS: (read consol ^ string). The console read 
buffer is scannea for an ASCII string or for any series of 
characters delimited by quotation marks *hich is placed on 
top of the stack. 

R R I : (reed disk inteaer). The disk Duffer 
allocated to the file name appearing in the source lanouage 
READ statement is scanned for the ASCII representation of an 
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integer which is converted to internal form and stored on 
top o* the stack. 

R D D : (read disk decimal). The same action is 
taken as in the RDI operator except a decimal value is 
placed on top of the stack. 

R D $ : ( r ^ a d disk strina). The same action is 
taken as in the RDI onerator except a strina value is placed 
on top of the stack. 

RCN: (load console buffer). The current line on 
the console is dumped into the console read buffer and the 
current proaram counter is stored in preparation for the 
possibility of a console error ana the subsecuent need to 
recover for repeated console inout. 

ECR: (error in console read). If characters 
remain in the console read buffer after all console read 
operations have been completed/ an error condition exists 
and the proaram counter is reset to the start of the console 
read routine allowing the console input to be entered again 
as necessary . 

OPN: (disk open). The address on top of tne 
stack points to the allocated area for the file control 
block and disk buffer associated with the disk file name 
specified in the source 1 annuag® file declaration statement. 
The file name which is stored in the file control block is 
passed to the ooeratina svstem which in turn opens that 
specific file for disk inout /output. 

CLS: (disk close). The file name located in the 
file control block cointed to by the address of the top o * 
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the stack is passed to the operating system which in turn 



closes that specific file to inout/output , 

RD8: (ready sequential block). The interpreter 
input/outout routines are initialized to operate with the 
file control block and disk buffer area pointed to- by the 
adaress on top of the stack. The address of the coae to be 
executed upon reaching the end of a file is also 
initial i z e d . 

RDF: (ready random block). The same action is 
taken as with ROB with the addition that the specific record 
of the disk tile is also taken from the top of the stack and 
the file control block is set up to conduct input/outDut 
from or to that specific record. 

EDR: (end of record for read). At the end of a 
read statement the remainder of the record is skipped. 

E D A : (end of record for write). A t the ena of a 
write statement the remainder of the recora is f i 1 1 ea with 
blanks and a line terminator is appended to the end of tne 
rec o rd . 

k. Subroutine Operators 

P p 0: (subroutine call). The two bytes of coae 
following the P R U operator represent the address of the 
subroutine in the coae area. This operator saves the return 
address at the too of m n m o r v , positions the stack pointer at 
the top of the first* actual parameter (see F i cure 10 for 
parameter format) ana branches to the first statement in the 
suo rout i ne . 
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SA V : (save actual parameters). The SAV operator 
expects tne .stack format illustrated in Figure 11. It 
copies the actual parameters to the top of memory and checks 
the PCB for a recursive call and if so it copies the PCB 
onto the too- of the stack. 

SV2: (ccoy actual parameters into formal 
parameters). The SV2 operator copies the actual parameters 
at the too of memory into allocated area for the formal 
parameters on top of the stack. 

UN S: (unsave parameters). Ihe U N S operator 
checks the PCB to see if it is the era of a recursive call. 
If this is the case? I) NS restores the PCB from the previous 
call. UNS also returns the value associated with the name 
of the subroutine to tne too of the stack. In the case of 



procedures 


tne 


returned value is 


?er o • 






RTN 


: (return). The 


D T M ocerator 


changes the 


value of 


the 


p roar am count e r 


to the value 


cf the return 



address. 
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IV 



CONCLUSIONS 



This project has resulted in the construction of a 
high-level# b 1 oc k -s t rue t u r ed # applications oriented compiler 
for micro-comouters with 2 Ok bytes of memorv or more* A hen 
compared to a fully dynamic scheme# the stack storage 
allocation and retrieval scheme presented here appears to 
enhance program execution speed# reduce memory 
requ i r emen t s # and simplify compiler i mp 1 emen t a t i on . 

timing tests with several oenchmar< programs have been 
conducted. These test oroorams w ere obtained from R F F C 7 1 
and have been run with several versions of the BASIC 
proaramminq 1 anguane. Tne results (expressed as execution 
time in seconds) ar® summarized as follows: 



BENCHMARK NtJMBtR 


l 


2 


3 


a 


5 


o 


7 


ALGOL-M 


1 .8 


1.3 


3.5 


3.3 


5. 1 


10.2 


1 b . 4 


INTEGER BASIC 


1 .3 


3.1 


7.2 


7.2 


8.8 


18.5 


28.0 


STANDARD BASIC 


1 .7 


7.5 


20. b 


20. o 


22. 1 


36.2 


51.8 



Listings of the seven benchmark proorams are contained in 
Appendix A. The reason A L G 0 L - M appears slower in the first 
oenenmark is that tne Grammar reauires at least one 
executable statement in p 0 P looos when compared to p A S I C 
which has FOR looos which can do nothing. The result i n a 
ALGOL- M program executes 1000 extra assionment statements 
which the bASTC proorams did not. Otherwise# the results 
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clearly indicate that the ALGOL-M I anguaae is not only 



wel 1 -structured but also executes rapidly in comparison with 
the very best BASIC i n t e r o r e t e r s . It is believed that tne 
major reason that tne ALGOL-m versions performed so well is 
the fact that the 1 ancuage supports inteaer arithmetic as 
opposed to most BASIC implementations which convert all 
constants and variables to floating ooint format* This 
allows ALGOL-M loop control counters to be incremented 
extremely rapidly. Comparisons for decimal calculations 
have not been done/ and thus no conclusions can be drawn 
concern ina relative soeeas of calculation-dependent 



p roar ams . 
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V 



RECOMMENDATIONS 



There are several areas that could be enhanced in this 
implementation of AIGOL-M. Formatted I/O although defined 
in the Grammar has not been implemented* The I/O definition 
is very similar to that of COBOL and implementation of this 
should not be too difficult* File I/O is implemented* but 
not tested. Debuqgi no facilities in the run-time monitor 
are not currently i mo 1 emen t ed . However* the svstem is 
designed to provide the following information at run-time: 
the line numoer of the currently execut i no line and the 
value of each variable as it is altered. 

The current version of A L G 0 L - M is designed to run on a 
system with at least <20k bvtes of memory. A smaller system 
could oe desianed to run on a l 6 k system. This would 
involve deleting some of the more complicated sections of 
code such as dynamic arravs and recursive subroutines. The 
other features of the 1 anouaqe which are not implemented are 
relatively minor* and are indicated in the program 
1 i st i nqs . 
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APPENDIX A 



BENCHMARK PROGRAMS 



PRINT "START” 
FOR K=1 TO 1000 
NEXT K 
PRINT "END" 

END 



PRINT "START" 

K = 0 
K=K f 1 

IF K < 1 0 0 0 THEN 
PRINT "END" 

END 



PRINT "START" 

K = 0 
K = K+ 1 

A=K/K*k+K-K 
IF K <1000 THEN 
PRINT "END" 

END 



Benchmark Procram 1 



BEGIN 

INTEGER a,k; 

WRITE f "START" 1 ; 

FOR K : = 1 STEP 1 TO 100u DO 
A : = o ; 

tfRITECEND"); 

END 



Benchmark Procram 2 



BEGIN 
INTEGER K; 

WRITE ( "STAR f "} ; 

5 0 0 K : = 0 ; 

WHTLE K < 1000 DO 
K : =K + 1 ; 

WRT TEC "END" ) : 

END 

Benchmark Prooram 3 



BEGIN 

TNTEGEP A,K; 

WRT TE ( "START" ) ? 

k : =o ; 

500 WHTLE K<1000 DO 

BEGIN 
k : =k + i ; 
a:=k/k*k+k-k; 
end ; 

WHITE ( "END" ) ; 
END 
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Benchmark Proaram a 



PRINT "START" 

K = 0 
K = K + 1 

A-K/2*3+4-5 
IF K < 1 0 0 0 THEN 
PRINT "END" 

END 



PRINT"STAPT" 

K = 0 
K=K + 1 

A=K/2*3+4-S 
G0SU6 320 
IF K < 1 0 0 0 THEN 
PRINT "END" 

END 



REGIN 

INTEGER A , K ; 
WRITE! "START") 

K :=o; 

500 WHTLE K < 1 0 0 0 DO 

BEGIN 
K : r «, + 1 ; 

A : =k / 2*3+a-5 ; 

END; 

WRITE ("END") ; 
END 



Benchmark Proaram 5 



BEGIN 

INTEGER A , x ; 
PROCEDURE DONuTHTNO; 
A : = n ; 

write("STart" ) ; 

soo k ; = o ; 

W H I L R K < 1 0 0 0 DO 
BEGIN 
K : =k+ l ; 
a : =k / 2 *3 + a-5 ; 
DUMOThING; 

end; 

WRITE ("END" ) ; 

END 
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benchmark Prooram 8 



PRINT "START" 

K = 0 

DIM M ( 5 ) 

K = K + 1 ; 
A=K/2*3+4-5 
G0SU6 820 
FOR l-l TO 5 
NEXT L 

IF K < 1 0 0 0 THEN 
PRINT” EM D M 
END 



PRINT "START” 

K = 0 

DIM M ( 5 ) 

K = Kf 1 

A = K /2*3 +-4-5 
G03UB 820 
FOR L=1 TO 5 
M ( L ) = A 
NEXT L 

IF K < 1 0 0 0 THEN 
PRINT"tMD" 

END 

RETURN 



BEGIN 

INTEGER A , K , L ; 

IMTEGFR ARRAY M fl : 51 ; 
PROCEDURE DONOTHING; 

REGIN 
A: = 0; 

End; 

APITEf "START") ; 

50 0 K : = 0 ; 

lr< H I L E K < 1 0 0 0 DO 
BEGIN 
K : =K + l ; 

A:=k/?*3+4-5; 

DONOTHING; 

FOR l:=l STEP 1 UMTTl 5 DO 

a ; = 0 ; 

END; 

WRITE ("END") ; 

END 



Benchmark Prooram 7 



BEGIN 

TNTEGER a,k,L; 

INTEGER ARRAY M [ 1 :5] ; 
PROCEDURE DONOTHING; 

BFGTN 
A : = 0 ; 

end; 

WRITE ("START"); 
x ; = 0 ; 

500 WHILE K< 1000 DO 

BEGIN 
K : =K 1 1 ; 

A:=k/?*3+4-5; 

DONOTHING; 

FOR L : = 1 STEP 1 UNTIL 5 DO 
M f L 1 ; = A ; 

END; 

WRITE ( "END" ) ; 

END 
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APPENDIX B 



COMPILER ERROR MESSAGES 



AS 

6P 

OE 

OD 

IC 

ID 

ID 

IT 

NG 

Nl 

NP 

NS 

PC 

30 

SI 

TD 

T M 

TO 

TS 

UD 

UP 

UP 



Funct ion/°roceciure on left Hand side of assignment 
statement . 

Incorrect bound pair subtype (must be integer). 

Disk error; no corrective action can be taken 
in the orogram . 

Doubly declared identifier, label, variable etc. 
Invalid soecial character. 

Subtyoes incompatible (decimal values can not oe 
assigned to integer variables). 

Integer overflow. 

Identifier is not declared as a si mole variable or 
funct ion. 

No ALG file found. 

Subtyoe is not inteaer . 

No aoolicable production exists. 

Suotyoe is not strina. 

Undeclared Parameter. 

Stack overflow. 

Array suoscrict is not of subtyoe integer. 

Subtyoe has to be integer or decimal. 

Subtyoes do not match or are i ncomoat i b 1 e . 

Symbol table overflow. 

Undeclared subscrioted variable. 

Undeclared identifier. 

Undeclared file/function. 

Undeclared orccedure. 
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vn 



Varc table overflow. Possibly caused by too many 
Iona iaentifiers. 



APPENDIX C 



INTERPRETER ERROP MESSAGES 



ERROR MESSAGES 

AB Array suDscrict out of bounds. 

AZ Attempt to allocate null decimal or st 

default to 10 d i g i t s /c h a r ac t e r s . 

CE Disk file close error. 

DC Disk file create error. 

DW Disk file write error. 

DZ Division by z e r o > result set to 1.0. 

EF Disk end of filer no action soecified. 

10 Integer overflow. 

N I No TNT file found on directory. 

GV Overflow during decimal multiply. 

RE Attemot to read oast end of record on 

RU Attemot to random access a non-blocked 

SL Significant digits lost durina decimal 

value set to 1.0. 

rt ARMING MESSAGES 

11 Invalid Console Input 

IL Non-significant digit lost during deci 

SO Characters lost durina string store. 



rina ( 



blocked file, 
file. 
store» 



ma 1 store. 
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APPENDIX D ALGOL-M LANGUAGE MANUAL 



This section describes the various elements of the 
ALGOL-M 1 anguaae. The format of the element will be shown# 
followed by a description and examples of use. The 

following notation is used: 

Braces f > indicate an optional entrv. 

A vertical bar ! indicates alternate choices# one of 
which must appear. 

Elioses w M indicate that the preceding item mav 
oe optionally repeated. 

Reserved w o r a s are indicated by capital letters. 

Reserved words and other special symbols must appear as 
shown • 

Items appearing in small letters are elements of the 
lanauage which are defined and explained elsewhere in 
the language manual. 
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arithmetic expression 



ELEMEN r : 

arithmetic expression 



FORMAT: 



integerldecima) 

variable 

{(> arithmetic expression binary operator 
arithmetic expression { ) } 

{() unary operator arithmetic expression {)} 
DESCRIPTION: 

Operators in A L 0 0 L - M have an implied oreceaence which 
is used to determine the manner in which operators and 
operands are arouoed. A-B/C causes the result of R 
divided by C tc be subtracted from A. In this case B 
is considered to be "bound" to the H / M operator 
instead of the operator which causes the division 

to be performed first* The implied precedence binds 
operands to the adjacent operator of hiahest 
precedence. The implied precedence of operators is as 
f o 1 lows: 
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unary 



- , + 
* * 



*, / 
+ / - 



Parent heses 


can be 


used 


t o 


overr i ae 


the 


i m o 1 i e d 


precedence 


in the 


s an>e 


way 


as they 


are 


used in 



ordinary alaebra. Thus the expression ( A - 6 ) / C will 
cause B to be subtracted from A and the result divided 
oy C . 



EXAMPLE : 

(X + Y) * (Z * Y + X) ** P 

X + Y + Z 



* X 



* 



1 * 1 / 



5. as b + 1 



ARRAY (Declaration 



ELEMENT : 

ARRAY declaration 



FORMAT : 



INTEGER ! DECIMAL ’STRING { (expression) > ARRAY 
identifier ... bound oair list* identifier) 

DESCRIPTION: 

The array declaration dynamically allocates storage 
for arrays. The optional integer expression indicates 
the lenath of each arrav element. For strinas, the 
maximum length is ? 5 5 characters and for decimals the 
maximum lenath is 1 A diaits. Integer lenaths are not 
specified since storaae adeauate to represent all 
integer values between -to, 3^4 ana +lo,384 is 
automatically allocatea. Arrays are not automatically 
initialized to zero. 

EXAMPLE: 

INTEGER ARRAY Xt0:5,0:5l; 

DECIMALUO) APRAY X, Y 13:6,5: iOJ ; 

STRING ARRAY WORDS [Y + 3: 121? 
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assignment statement 



ELEMENT : 

assignment statement 
FORMAT : 



variable : = {variable : = } ... expression 



DESCRIPTION: 



The expression is evaluated ana stored into the 
variable. The types of permissible assianments are 
indicated by the following table: 

expression 

integer decimal strina 

1 n t °qe r 
variable decimal 
strina 

Multiple assianments are allowed with the expression 
being assigned to all of the listed variables. 



yes 


1 

no 


no 


yes 


ves 


no 


no 


no 


yes 



EXAMPLE : 

X := Y + Z; 

Y til := Y T21 := 50; 
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balanced statement 



ELEMENT : 

balanced statement 



FORMAT : 



{label definition) simple statement 



{label definition) IF boolean expression THEN oalanced 
statement ELSE balanced statement 



DESCRIPTION: * 



If the boolean expression is truer the balanced 
statement to tne left of the ELSE is executed. If the 
boolean expression is falser the balanced statement to 
the right of the ELSE is executed. 



EXAMPLE : 

IF A < R THEN A := 1 ELSE A : = 2 ; 

IF B = C THEN 
BEGIN 

WRTTE(B) ; 

e := B + l ; 

END 

ELSE 

BEGIN 

WRI TF(C ) ? 

C : = C + 1 ; 

End; 



PROGRAMMING NOTE: 



A semicolon is not allowed after the statement 
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immediately preceding an ELSE 



block 



ELE M EN T : 



b 1 oc < 



FORMAT : 



BEGIN {declaration;} ... statement; ... END; 
DESCRIPTION: 

The block is the foundation of tne ALGOL-M 1 anguaae . 
Each time a new block is entered new variables may be 
declared. Tnese variables are uniaue in the sense 
that a variable X declared in two different dIocks 
represents two different variables. All storage 
within a block is dynamic ana allocated when the block 
is entered anc ae-allocated when the block is 
departed. A block can be used any place a si mole 
statement can bn used. 

EXAMPLE: 

BEGIN 

x : = 1 ; 

Y : = 2 ; 

ENH; 

IF X = Y THEN 
BEGIN 
x := 5; 

Y : = a ; 

END; 

PROGRAMMING NOTE: 
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Declarations "av not appear in case blocks. The final 
END/ which matches the initial program BEGIN/ is not 
followed by a semicolon. 
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boolean expression 



ELEMENT : 

boolean expression 
FORMAT: 



NOT 


boolean expression 






DOO 1 


ean 


expression 


OR 


bool ean 


express i on 


bool 


ean 


expression 


AND 


boo lean 


expression 


{ ( > 


expression = ! < j 


:> !> 


=!<=!<> 


expression {)> 



DESCRIPT ION : 

Integer-integer, decimal-integer, decimal -decimal, 
integer-decimal, and strinq-strina 1 comcari sons are 
allowed in 4LG0L- M . For i n t eoe r-dec i ma 1 and decimal- 
integer comparisons the inteaer value is converted to 
a decimal value crior to comparison, The result of a 
comparison of numerical values is based on the si ?e of 
the numbers. The result of a comparison of strinq 
values depends on a c h a r>ec t e r -b y -c h a r ac t e r comparison 
where t e first instance of a non-eaual character 
establishes the boolean result. T h e collating 
sequence of the ASCII character set is used for string 
comparisons. Generally, numbers ar® followed oy upper 
case letters which are followed by lower case letters. 

E X AMPLE : 
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x > y or y < z; 



(X = Y) AMO (Y = ? OR Z = 10) ; 

IP NOT X = 1 THEN /JPITtr'Ht'llO") 
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bound pair list 



ELEMENT : 

bound pair list 



FORMAT : 



(expression : express i on {, express i on : expression) 

DESCRIPTION: 

Expressions in tne bound pair list must be oi 
integer and areater than or equal to zero. There 
oe no more tnan <:55 dimensions. 

EXAMPLE : 

11:7,0:5] 

[ 3 : 6 , x : v 1 
Cv*3:z, 1:121 



* 1 



t vpe 
can 



CASE statement 



ELEMENT: 

CASE statement 

FORMAT : 

CASE exoression OF 
O E n I N 

statement; ... 

FNO ; 

DESCRIPTION: 

The CASE statement allows the oroorammer to chose one 
of several statements to be executed. The statement 
chosen decenas on the value of r h e inteoer exoression. 
The first statement is executed if the expression 
evaluates to ?ero. If the value of the expression is 
greater than the number of statements in the case 
block, the resulting action is undefined. 

EXAMPLE : 

CASE X ♦ Y OF 
REGIN 

WRITE ("CASE 0"); 

WRITE ("CASE 1"); 

END; 



CLOSE st at- ement 



ELEMENT : 

CLOSE statement 



FORMAT: 



CLOSE identifier T, identifier) ... 

DESCRIPTION: 

This statement allows the proorammer to e*plic 
close the file indicated. Closino a file result 
the file he i na rewound ( i . e . / if it is reopened 
file heains at tne first record). Anv mumper of f 
may be open at any one time. All files are implie 
closed at the end of the program. 

EXAMPLE: 



i t I v 
s i n 
the 
i 1 es 

1 t 1 y 



CLOSE FILE1, FILE?; 



constant 



ELEMENT : 

constant 



FORMAT: 



integerldecimal ! s t r i na 



DESCRIPTION: 



A constant may be either an integer, decimal* or 
st rina constant. Integer constants are numbers with 
no decimal ooint ranainq from -16,384 to * 1 o , 3 K 4 . 
Decimal constants are numbers with a decimal ooint and 
may not exceed 18 digits in length. String constants 
may be composed of anv comoination of alphanumeric and 
special charaters and may be up to 255 characters in 
lenath. 3t rincs entered from the console or disk may 
be either enclosed in Quotation marks or delimited 
with blanks. Strinas used as constants in the program 
must be enclosed in quotation marks. 



EXAMPLE: 

10 

1 0 , 5b 7 8 



EXAMPLE ONE" 



declaration 



ELEMENT : 

declaration 



DESCRIPTION: 



See FILE declaration, 
declaration, crocedure 
dec 1 a r a t i on . 



ARPAY declaration, 
dec laration, and 



s i mo 1 e 
function 



*5 



express on 



ELEMENT : 



expressi on 



FORMAT: 



ooolean expressionlaritHmetic expression 



DESCRIPTION: 



See arithmetic 



expression and Ooolean expression. 



FILE declaration 



tLEMfcNl : 

FILE declaration 



FORMAT : 



FILE identifier ((exoression)l {^iaentifier 
{(expression)}} ... 

DESCRIPTION: 

The identifiers used in the FTLE declaration are file 
identifiers wnich reference actual file names. The 
actual file names may be assianed at comp i 1 e-t i me or 
at run-time. The ootional infeoer expression 

following the file identifier is used to scecify the 
record length in bytes for blocked records. 

EXAMPLE: 

FILE TAPEt, T4PE<2(126); 



PI 



F OK s t a t e^en t 



ELEMENT : 

FOR statement 



FORMAT : 



{label definition) FOP assionment statement 

{STEP expression) UNTIL expression 00 simple statement 



DESCRIPTION: 

Execution of ell statements within the simple 
statement are reoeated until the index i no variable is 
greater than or equal to the value of the UNTIL 
expression. The indexing variable is incrementea bv 
the amount specified in the STEP expression and must 
be incrementea by a positive amount. The UNTIL and 
STEP expressions are evaluated on each loop. If the 
optional STEP expression is omitted* a default value 
o f one is used . 

EXAMPLE: 

FOR I := 1 STEP 1 UNTIL 10 00 
X : = Y ; 

FOR INDEX := X + Y UNTIL X + Y DO 
BEGIN 

A : = A + R ; 

*PITt (A) ; 

end; 



function call 



ELEMENT : 

tunc t i on call 



FORMAT : 



identifier {(expression {/expression} . . . ) } 
DESCRIPTION: 

Functions may acoear as primary elements in arithmet 
or Doolean expressions. Parameter oassinq is 
value. Functions may be called recursively wi 
limit to fhe number o * recursive calls allowed. 

EXAMPLE : 

x := rand; 

y := SORT (5.6); 

C := FUNC * RMD(2); 



1 c 
by 
no 
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function declaration 



ELEMENT : 

function declaration 
FORMAT : 



INTEGER ! DECIMAL ! STRING FUNCTION identifier 
{(identifier (/identifier) ...)) 

{ dec 1 a r a t i on ; ...) simple statement ' 

DESCRIPTION: 

A function declaration nay or nay rot include 
parameters. If parameters are included t K ev must be 
declared before the simole statement which represents 
the body of the function* Parameters are oassed by 
value and may be of type inteaer/ decimal/ or string. 
Functions return a value to the point of call. The 
value to be returned is assigned to the function name 
(which is user as a simple variable within the 
function) prior to tne end of the function. Functions 
may be called recursively with no limit set as to the 
number of recursive calls which can be made. Variables 
may be declared witnin functions and are considered 
local to the f unc t ion. 

EXAMPLE: 

INTEGER FUNCTION VALUF(v); 

Q 0 



INTEGER X 
REGIN 
X := (X * 
VALUE := 
END; 



GOTO statement 



ELEMENT : 

GOTO statement 



FORMAT : 



laoel definition GO TO i dent i f i er ! integer 
I aoe) definition GOTO i den t i f i e r J i n t eae r 

DESCRIPTION: 

Execution continues at the statement labeled with the 
identifier or integer * o 1 1 o w i n a the GOTO or GO TO 
statement . 

EXAMPLE : 

NEXT: GO TO i 0 0 ? 
i 0 0 : GOTO NEXT; 

PROGRAMMING NOTE: 

GOTO statements can only be used to oranch within the 
current oloc< or to an outer block. 



identifier 



ELEMENT: 

identifier 



format : 

letter (letter! number) ... 



DESCRIPTION: 



Identifiers oegin 
any alohanumeric 
t o 25S characters 
characters are 
identi tiers. 



with a letter ana are 
characters. A ] r nouah 
may be used , only 
actually used to ai 



conti nuea w 


i t h 


identifiers 


uo 


the first 


il 


s t i ngu i s n 


trie 



EXAMPLE: 

A 

NAME 



COUNTER 1 



If 7 statement 



ELEVEN 1 : 

IF statement 



DESCRIPTION: 



See balanced statement or unbalanced statement 



1 a D e 1 definition 



ELEMENT : 

label definition 



FORMAT : 



i den t i f i e r J i n t eae r : 

DESCRIPTION: 

Label definitions are optional on all balanced 
unoalanced statements. 

EXAMPLE: 

FINISH: 

100 : 



°5 



o r 



procedure call 



ELEMENT : 

procedure call 



FORMAT : 



identifier ((expression {»e*pressionl ...)} 



DESCRIPTION: 



Procedures can he 
Parameter oassino 
called recursively 
of recursive calls 



called w i t n or wi 
is bv value, 
with no limit set 



thout parameters. 
Procedures can be 
as to the number 



EXAMPLt : 

COMPUTE; 

COMPAPE("AAA M , 'aOOQ); 



COUNT f 1 , 



2 , 3 ) ; 



procedure declaration 



ELEMENT : 

procedure Declaration 



FORMAT : 



PROCEDURE identifier ((identifier {/identifier} ...)} 
{declaration; ...} simple statement 



DESCRIPTION: 



A orocedure aeclaration mav or may not include 
parameters. If parameters are i nc 1 uaed t K ev must b® 
declared before the simnle statement which represents 
the body of the procedure. Parameters are passed by 
value and may be of type intener/ decimal or string. 
Procedures do not return a value to the point of call. 
Procedures can be called recursively. Procedures are 
considered secaraf e clocks within which local 
variables may dp declared. 



EXAMPLE : 

PROCEDURE OUTPUT; 

WRITE ("HELLO"); 

PROCEDURE COMPARE (X , Y ) ; 

INTEGER X,Y; 

BEGIN 

WRITECIHE LARGEST INTEGFR IS ” ) ; 
IF X > Y (MEN 
WRITE (X) ; 

ELSE 

wRITE(Y) ; 

END ; 



READ s t a t emen t 



ELEMENT : 

READ statement 



FORMAT : 



READ (variable {/variable) ...) { 0 N E N D F T L E block} 

DESCRIPTION: 

If the form of the PE A 0 statement is D EADC, then the 
input device is the console. Otherwise a file occion 
must be specified and the input aevice is the disk. A 
READ statement reads one or more variables at a time. 
The ootional ONENDFILF section indicates action to be 
taken when the end of the specified file is reached. 

EXAMPLE : 

RE AD (WOP DONE, X, VALUE 2) ; 

READ FILES (aORDONE, X, VALUE?); 

PROGRAMMING NOTE: 

The ONENDFILt section is curent 1 y not implemented. 



reserved word list 



ELEMENT ; 

reserved word list 



FORMAT : 



letter {letter} ... 



DESCRIPTION: 



The following 


words are reserved by 


ALGUL-M and 


T6 V 


not be used as 


identifiers 


• 






AMD 


ARRAY 


BEGIN 


CASE 




CLOSE 


decimal 


DO 


ELSE 




END 


EXTERNAL 


FILE 


FUNCTION 




GO 


C-OTO 


IF 


INITIAL 




INTEGER 


NOT 


OF 


ONENDF ILE 




op 


PIC 


PROCEDURE 


READ 




STEP 


STRING 


TAB 


then 




TO 


UNTIL 


WHILE 


NR I IF 




wPITEON 










Reserved words 


must be 


preceeded 


and foil owed 


b v 


either a speci 


al charterer 


nr a snace 


. Spaces mav 


not' 



be embedded within reserved words. 
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s i mo I e st at ement 



ELEMENT: 

simple s t at ement 



FORMAT: 



block ! assignment statement! for statement! 
case statement [close statement looto statement! 
while statement ! read statement !wri te statement! 
procedure cal 1 ! identi fier 

DESCRIPTION: 

All ALGOL-M statements are free form and must oe 
separated oy semicolons. 
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simple declaration 



ELEMENT : 

simple declaration 



FORMAT : 



INTEGERIDECIMAlISTRTMG {(identifier! integer)} 
identifier {, identifier! ... 

DESCRIPTION: 

Simple inteaer variables may be any value between 
- 1 o r 3 8 4 and +16, 38^. Simple decimal variables can be 
specified as anv length from one to IP diaits with a 
default length of 10 digits. Simple strino variables 
can oe scecifiea as anv lenoth from one to ?55 
characters with a default lenath of 10 characters. 

EXAMPLE: 

INTEGER X; 

DECIMAL flS) x,r; 

STRING(33) N0°D0NE, aOROTWO, WORDTHREE; 
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soec i a 1 characters 



ELEMENT: 

soec ial characters 
DESCRIPTION: 

The following scec ial characters are used by ALGOL 
t ooen Parenthesis 
) c 1 ose pa rent hosis 

* asterisk 
+ plus 

- minus 
: colon 

; semicolon 
< less -than 
> greater-then 
= eoual 
, comma 
[ ooen bracket 
3 c 1 ose cracker 
: = ass i gnec equa 1 

* * exponentiation 

% percentage 

Any snec ial character in the ASCII character set 
aopear in a strino. Special characters, other 
those listed above, will cause an error conai t ion 
used outside of a strina. 



m a v 
than 
1 f 



TAB expression 



ELEMENT : 

TAB expression 



FORMAT : 



TAB expression 
DESCRIPTION: 

TAB is optionally used in a iftRITt statement 
spacing on the outout line. The amount of 
soecifiea bv tne inteaer expression followi 

EXAMPLE : 

rtPITcf"NEXT NAME”, TAP S, NAME II] )J 



to cause 
soacing is 
ng I A b . 
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unbalanced statement 



ELEMENT : 

unbalanced statement 
FORMAT : 



{label definition) TF ooolean expression THEN statement 

{label definition) IF boolean expression T h F. N balanced 
statement ELSE unbalanced statement 

DESCRIPTION: 

Unlike the balanced statement that will always have a 
Balanced statement on either side of the ELSE in an IE 
THEN ELSE structure/ an unbalanced statement may not 
even include tne ELSE portion of the statement. 

EXAMPLE : 

IF S > Y Then SPRITE (x) ; 

IF X < Y THEN 

IF Z > Y THEM 
nPITE(Z) 

ELSE 

WRITE f x ) ; 

PROGRAMMING NOTE: 

A semicolon is not allowed after the statement 
immediately preceding an ELSE. 



variable 



ELEMENT : 

variable 



FORMAT : 



identifier {(bound Dai r list]} 

DESCRIPTION: 

A variable in ALGOL-M may be simple or subscripted and 
of type INTEGER, DECIMAL, or STRING. 

EXAMPLE: 

X 

VALUE 
l ( 1 , X * Y 1 



1 05 



WHILE statement 



ELEMENT : 

wH I Lt statement 



FORMAT : 



WHILE boolean expression DO si mole statement 



DESCRIPTION: 



wHILE statements continue executing the 
statement followina the Du for as long as the 
expression is true. 



EXAMPLE : 

■WHILE I > 0 DO 

I : = I - 1 ; 

WHILE X > 5 AND y <> ft DO 
BEGIN 

a := x / 3; 
WOITE(X) ; 

END; 



simple 
bool ean 



WRITE statement 



ELEMENT: 

WRITE statement 



FORMAT : 



WRITElWRITQN {file potion) 

(exoression! tab express ionjoic de^ i n i t i on ! st ri no 
{/express ionjfah express ionlpic definitionistring) . . . ) 

DESCRIPTION: 

The WRITE option indicates the output will start 
print i no on a new line/ while the WRITEON option will 
continue Drinking on the same line. If the form of 
the statement is W R T T F ( or WRITEON (* the output device 
is the console. Otherwise/ a file ootion must D e 
specified ana the outout device is the disk. 

EXAMPLE: 

WRITE(X) ; 

w R I T £ f M T H E NUMBER I S M / X t Y); 
w R I T E ( 11 A N S w E R ,f / TAB 5/ X * Y); 

PROGRAMMING NOTE: 

The PTC definition is not currently implemented. 
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APPENDIX E ALGOL-M LANGUAGE STRUCTURE 



In the fol lowina sections* the syntax of the lanauage 
will oe listed in B N F notation followed by the semantic 
actions (offset with asterisks) associated with that 
production. The descriotion will be given in terms of 
comoiler oata structures and the ALGOL-M machine coae 
generated. Items enclosed in brackets and separated by 
slants are alternative semantic actions. N/A indicates no 
action. This notation is similar to that used in ^EF 8 and 
RFF 10. 



1 <proqram> :! = <block> - 1 - 

*<block>; x!T; (eof indicator) 

2 <block> <block heaa> <bloc< ena> 

*<Dlock head>* <b1ock ena> 

3 <block heaa> <blocx head> <dec 1 a ra t i on> ; 

*<bloc* head>; <dec 1 a r a t l on> 

4 ! <beoin> 

*<b 1 oc k> 

5 <beain> begin 

*RL I 

0 <block end> = <block body> * end 

*BLD 

1 <block body> <sta^ement> 

* < s t a t emen t > 

6 <block body> ; <statement> 

*<olock boov>* <statement> 

9 <declaration> <fi1e dec1aration> 

* < f i 1 e dec 1 arat i on> 
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1 o 

1 1 

12 

13 

14 

IS 

16 

17 

13 

14 

20 

21 

2 1 

22 

23 

24 

25 



! < s i m o 1 e aecl arat i on> 

*<simole declaration 

! < s i m p 1 e declaration < i n i t i a 1 oot 

*<si mol e dec I arat i on>; <initial ootion> 

! <array declaration 
*<array dec 1 arat ion> 

i < a r r a v declaration> < i n i t i a 1 opti 
*<array declaration>; < i n i t i a 1 option 

! <<subproaram declaration) 
*<subDrograit declaration 

J <external decl arat i on> 

* ( h o t implemented} 

<simole decl arat i on> ::= <dec I arat i on h e a a > 

< i aent i f i er> 

*<decl arat ion head) : LIT (identifier address} 
*(AL0/AL3/ N / A for inteaersl 

< initial oot i on> ::= < initial head> <constant> 
*<initial nead>; <constant> 

<initial heac> :t= initial ( 
iN /A 



i < initial heaa> <constant> 
*<initial head>; <constant> 



<dec I arat i cn head) ::= declaration tyoe> 
*<dec 1 arat i on tvDe> 

! <dec 1 arat i on head) <i cent i 

f 

*<aeclaraticn h e a d > ? LIT {identifier address) 
*[AID/AL3/ N / A for inteaersl 



<dec1araticn tvpe> strina 

* T M 1 (strinc default size); 



*<si ze opt icn> 



string < s i z e oot i on> 



N/A 



inteaer 



! decimal 

* T M 1 {decimal default size)? 



1 09 



i on> 



on> 



) 



f i e r > 



26 

27 

28 

29 

30 

31 

32 

32 

33 

33 

3« 

35 

35 

36 

36 

37 

38 

39 

qO 



*< s i ze opt i cn> 



decimal <size option> 



<size opt ion> ::= ( <variable> ) 

*LITL0AD (variable address}; 



*<i nteger> 



<integer> ) 



<sfatement> = <balanced statement> 
*<balaneed statement> 

! <unbalanced statements 
*<unbal anced statement > 



<balanced statement> <simDle statement> 

* < s i m d I e statement> 



! <if clause> <true oart> else 
<bal arced statement) 

*<if clause>; <true part>; <balanced statement) 

! <label ae f i ni t i on> 

<bal ancea statement) 

* < I a b a I aefinition>; <oa I anced statement) 



<unba I anced statement) :: = <if clause> <statement> 

* < i f clause); <statement> 

! <i* clause) <true nart> 

else <unbal anced statement) 
*<if c 1 ause>; <t rue part>; <unbal anced statement) 

1 <label definition> 

<unbalarced statement) 
* < 1 a b e 1 definition>; <unbal anced statement) 



<true oart> = <balanced statement) 

*<ba 1 anced statement); 0RS (address of end of 
‘current statement) 

<laDel definition> : : = <i aent i f i er> : 

N/A 



N/A 



< i n t eae r > : 



1 0 



<simcle statement) 
* <b 1 oc<) 



<b 1 oc k > 



4 l 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

52 

53 

54 

55 

56 

57 



*<3ssignmenf statement) 



* < f o r statement) 



* < w h i 1 e statement) 



*<read statement) 



*<wri te statement) 



<assionment statement 
<for s t a t emen t > 

<wn i I e statement) 



<read statement) 
<write s t a t emen t > 



<case statement) 



*<case statement) 



*<go to statement) 
*<dose statement) 



<ao to statement) 



<close statement) 



<o roc edu r e ca'I) 



*<procedure ca))> 
* I M 2 {subroutine 



; pro; 



! <iaent i t i er> 
address}; PRO; POP; 



<assignment statement) = < 1 e f t part) <exoression> 
* < 1 e f t oart>; <»xoression>; [SIT/ SID] 

! <left part) 

<ass-ionment statement) 
*<left nart>; <assianment statement) 



< 1 e 1 1 oart) : : = <vari abl e> := 
*<vari able); fL T T /L I TLO * D1 



<e<pressi on) Arithmetic expression) 

*<ar i t hmet i c expression) 

! <if expressi on> <excression> 



N/A 



<ari thmet i c expression) <term> 

*<term) 



1 1 1 



I <ari tHmet i c expression) + 



57 

58 

58 

59 

59 

60 

b 1 

b? 

b 3 

tn 

65 

06 

b 7 

08 

o9 

70 

71 

72 



< t e P m > 

*<arithmetic expressions <termS [ADI/ADD] 



! <arithmetic expression> - 
< t e rm> 

*<arithmetic expressions <term>; ISBT/SBD] 



! <ari thmetic express i on> 
! ! <ter^> 

* <a r i t hme t i c expressions <termS CAT; 



* < t e r m S MEG 



< t e r m> 



★ < t e r rr > 



+ < t e rm> 



< t e r 71 > <orimarv> 

*<pr i ma ry > 



! <term> * <primary> 

* < t e r m S <primary>; [ M LI/MLDJ 

I < t e r m > / <orimary> 

*<termS <primaryS [OvT/DvD] 

<prir>ary> <pr i mary e 1 e^ent> 

*<primary el enent> 

! <primary> ^ <orimary el ement> 
*<primaryS < o r i m a r v 1 e m e n t S I X P 



< p r i m a r y el e f nent> : : = <vari abl e> 

*LITLOAO (address of simple variable}/ N / A for 
★subscriotec variables/ 1^2 (subrountine 
★address in code area}; PPG 



*<constant> 



★ <P roc edu re c a 1 1 > 



*<assignment statement> 



<const ant > 



<p r oc edu re c a 1 1 > 



( <ass i gnment statements ) 



( <expression> ) 



*<express i or > 



<constant , > <inteaer> 

★ I NT; {constant} 



1 1 a 
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! <dec i ma 1 > 




♦ dec; 


{constant) 


7a 




! < s t r i nq> 




♦ s r p ; 


{const ant ) 



75 <variable> :: = <identifier> 

N/A 

76 ! Subscripted variabl e> 
*<sudscrioted vari able> 

77 <file dec) arat 'or> ::= < f i 1 e h e a d > < f i 1 e name> 
♦ {not i mp 1 enen t ed ) 

78 <file head> :: = ^ i 1 e 
*{not implemented) 

7b ; < f i l (a heaa> <file name> , 

» (not i mp 1 erren t ed ) 



80 


< f i 1 e 
* { no t 


na^e> <st*rina> <1enqth one i on> 

i mp 1 err e n t e d } 


81 


Moot 


! <strina> 
i mp ] err en t ed } 


82 


* { no t 


! <identifier> <1 en g t h oot ion> 
implemented} 


83 


* ( no t 


! <identifier> 
implemented} 


8a 


<1 enatH ootion> f <identifier> J 

* { no t i ^pl evented 


85 


* f not 


! T <integer> 1 

i mp 1 emen t ea} 



86 <array dec1aration> <array 1 i s t > 

86 <bouna pair 1ist> 

* < a r r a y 1 i s t > ; < d o u n d pair 1 i s t > ; 

♦LIT it* of arrays(m)}? LIT {type of 
♦array} 

♦ followed bv : 

(1) LIT {array location) 

( 2 ) .-n = m — 1 if » = 0 then halt else steo(l) 



1 1 3 



87 

88 

89 

90 

90 

91 

92 

93 

9a 

9a 

95 

98 

97 

98 

99 

100 

1 0 1 



<array li s f- > 
* < a r ra y head> 



<arrav head> <identifier> 



<array head> :: = <dec I arat i on tyoe> arrav 
*< dec 1 a ra t i cn tvpe> 



! <arrav head> <identifier> , 



*<array 


head> 








<bound 


oa i r 


1 i S t > 


: ; = <bound pa i r 


h e ad> 








<bound pa i r > 


J 


* <bouna 


pa i r 


head> 


; <bound oai r> 




<bound 


pa i r 


h e ad> 


: := ( 




N/A 




! 


<bound oair head> 


<bound 


* <bouod 


pa i r 


h e ad> 


; <bound oai r> 





f 



<Dound oai r > <exoression> : <expression> 

*<expressi o n > ; <expressi on> 



<suDScrioted variahle> = <subscripr h eaa> 

<exoressi o n> 1 

*<suDscriot head>? <expression>; 

*LITL0AD <array adore ss>; SUB 

<subscrint h e a d > <identifier> l 

N/A 



! <subscript head> <expression> , 
♦<subscriot head>; <exoression> 

. <go to staterent> <qo to> <identi f ier> 

*DCB of blocks to dec remen t } /NOP * NOP 
*fo1 lowed Ov BRS (branch address} 

! <go to> < i n t ege r> 

* 0 C 8 ( & of blocks to decrement }/N0P?N0P 

* fol I owed by R R S (branch address} 

<go to> : : - ao to 
N/A 

! ao t o 

N/A 

<read statement <reao head> <var i apl e> ) 

*<read h e a a > ; LTT/LITLOAD (address of variable}; 
*ODT/PCI; 3ID/3DD/SS D 
*if console I/O t^en FCP 



1 1 a 



1 02 

103 

1 04 

105 

1 06 

107 

1 08 

1 05 

110 

1 1 1 

112 

113 

1 14 

1 15 

1 16 

1 1 7 

118 

1 15 



<read heao> : : = read ( 
*RCN 



! read <*ile oot i on> ( • 

‘(not implemented! 

! <read h e a d > <variable> > 

*<read head>; same as production 101 

<*rite statement> :: = <wri te head> <exoression> ) 
* < w r i t e head> 1 <expression>? fw'IC/flDC/WSC/iftlD 
*WDD/W ID] 



! <wri te h e a d > <tab expression> ) 
‘(not implemented! 

! <wri te heaa> <pic definition> ) 

* ( n o t implemented! 

<write head> write ( 

*DMP 

I 

! write <file ontion> ( 

* { no t implemented) 

! w r i t eon ( 



N/A 

! writeon < f i 1 e oct ion> ( 

*(not implemented) 

i <write h e a d > <expression> , 
*<write head>; <expression>; (LIT/LI [LOAD] 

! <wri te H e a a > <tab express ion> , 
*/not implemented) 

i <write heaa> <pic definition> , 
* { n o t implemented) 

<file opt i on> : : = <identifier> 

M/A 

! <identifier> <rec opt i on> 



N/A 



! < s t r i n a > 



N/A 

N/A 



< s f r i n a > <rec opt i on> 



< r ec 



<iaenti f i e r > 



N/A 



/ 



1 1 5 



oot i on> 



120 

121 

122 

123 

124 

125 

126 

127 

1 28 

1 2 q 

130 

1 30 

131 

1 32 

1 33 

133 

1 34 

1 35 

1 36 

1 36 



<inteqer> 



N/A 



< p i c d e f i n i t i o n > : : = < c i c h e a a > < p i c 1 i s t > ) 
Moot i mp 1 enpen t ed } 

< p i C head> ::= pic <string> 

Mnot implemented! 

i pic < i d e n t i f i e r > 

* {not implemented} 

< p i c 1 i s ^ > ::= ( <expression> 

* {not implemented} 

! <pic list> t <expression> 
*{not implemented} 

< t a b express ion> ::= tab <exornssion> 

*{not implemented} 

< i f c 1 a u s e > ::= if <bool ean excression> then 



*<boo1 ean 


express i on>; 


PSC { o ranc h 


aodress > 


<if exDression) :: = <i 


f clause* <expression> 


*(not implemented! 






<boo 1 ean 


express i on> : 


:= <bool ean 


term* 


* <boo 1 ean 


t e rm> 










1 <boo lean 


expression* 






<boo lean 


term* 


*<boo 1 ean 


expressi on>; 


<bool ean tem>; PGR 


<boo 1 ean 


term> <bool ean primary* 


*<boo 1 ean 


p r i rn a r y > 








! not 


<boo1ean primary* 


* <boo 1 ean 


primary>; NOTO 





! <boolean term> and 
<bool ean orimarv> 

*<bool ean term>; <bool ean primary) A N D Q 

<bool ean primary) <logical expression) 

*< 1 og i c a 1 expression) 



! ( <boolean expression) } 

*<Dool ean expression) 

<logical expression) <exoression> <re 1 at i on) 

<exoressi on> 

*<expression>; <expression>; fs^rino, integer, 

*or decimal relational operator! 



1 lb 



137 < re 1 a t i on> ::= = 

N/A 

138 ! < 

N/A 

139 ; > 

N/A 

140 j <COmp> 

N/A 

1 a i <como> < > 

N/A 

142 ! < = 

N/A 

143 ! > = 

N/A 

144 <whi1e state'rent> = <^hi 1e clause> <do statef"ent> 

* <w h i 1 e c 1 au se> ; <ao statements; BkS 
*(Dranch 'ocaMonl 

145 <whi1e d ause> = <while> <bool°an expr®ssion> 
*<boo 1 ean excression>; BSC ^branch address} 

146 < w h i 1 e > ::= while 
N/A 

147 <f or statements <f or clause* <steo expression* 

147 <until clause* <do statement* 
*<for clause*; <steo exrression>; <unti1 c 1 ause>» 
*<do statement*; RRS {branch address} 

148 <for clause* ::= for <assianrent statement> 
*<assignment statement*; RRS (branch address}; 

*LIT (counter variable}; LITLOAD (counter variable} 

149 <steo exoression> step <exrress i on* 

*<express i on> ; AQT; STD; LITLOAD (counter variable} 

150 < u n t i 1 clause> : : = < u n t i 1 non-term> <expression> 
*<until non-term*; <exor ess i on> ; LtQ; BSC 
♦(branch address} 

151 <until non-term> ::= until 

*fl M l (one}; a DT; STD; LITLOAD (counter variable}/ 
N/A if there is a steo exoressionl 

152 <do statement> = do <simole statement > 

*<simDle statemenf> 



153 

15a 

155 

155 

156 

157 

158 

159 

loO 

161 

lo2 

162 

163 

163 

16 a 

1 6 ^ 

lo5 

165 

1 66 

1 1>7 



close <identifier> 



<c1ose state^ent> = 

Mnot implemented} 

! <close statement> , <idenf i f ier> 
♦ {not i mol e'rentea) 



<suDDrograrr dec 1 arat i on> <subproqram heading> 

<s i mp 1 e statement> 

*<suoorogranr headi na>; <simole statements LIT 
♦{subroutine P R T address}; UNS; RTN; L 1 T ( S B P } ; 

♦LIT 0; SID; 



< subo rog ran headino> < f unct i on headi ng> 

♦<function heaai na> 



i <nrocpdure headi na> 

*<procedure neadi ng> 

< funct i on headi na> : : = <oaramless f unct i on> 
♦<paramless funct ion> 



J <fynct ion & params> 
*<funct i on caramsS S V 2 

<procedure headi nq> : : = <param1 ess proc> 
♦<paramless proc> 



*<proc R oaramsS SV2 



<proc R o a r am s > 



<paramless funct ion> 
*<aecl arat ion type> 



<dec 1 arat i on tyne> 
function <identifier> ; 



<function 

*<function 



R o a r am s > 
h eaa> 



<function heaa> 
<identi f ier> ) ; 



! <funct ion R oa^ams> 
<dec 1 arat i on> ; 

*<funct ion caramsS <dec 1 arat i on> 



<function head> declaration 

<identi f i e r > 

♦<aeclaraticn typ^> 



tvoe> function 
( 



J <funct i on head> <i aent i f i er> , 
*<funct ion heaa> 

<paranl ess proc> procedure <identifier> ; 

♦ I Ml {parameter count); I M 1 (local variable & 

♦ parameter offset}; LIT (base of P C B } ; S A V ; BLI 
♦if tHis is a non-integer function then 
♦LITLOAD (Ipnath of return value}; 

♦LIT {RRT address of ^unction}; [ £ L b / A L S J 



1 e8 

1 68 

169 

169 

170 

171 

172 

173 

1 7a 

1 75 

1 75 

1 76 

1 76 

1 77 

1 78 

1 79 

180 

181 

182 

183 



<p roc ^ oarams> : 



<procedure h e a d > <i cent i f ier> 

) ; 

*<procedure h e a d > ? same as production 167 

! <proc & oarams> <dec 1 a r at i on> 

t 

*<proc d a r a m s > ? <dec 1 arat i on> 

<procedure head> procedure <i dent i f i er> C 

*8LI ; 



! <procedure head> <ioentifier> f 



N/A 



<procedure call> <ca11 headi ng> <expression> ) 

* < c a 1 1 Headi no>; <e^Dression>? I M2 
Madaress of subroutine in code area/? PRO 



<cal1 headi n o > : : = <ident i f i er> ( 

N/A 

| <call heading> <expression> f 

*<exoression> 

< dec I arat i on> declaration tyoe> external 

function <external 1 i s t > 

* (not implemented!* 



* (not implemented) 



external procedure 
<external list> 



<external 1 i s t > <identifier> 

* { no t implemented) 



! <external list> * <identifier> 
*(not i rpl errented) 



<case statement> = <case headi ng> <case block> 
*<case headi n o > ? <case b 1 o c k > ; 

*do n times(’n = number of statements in case block) 
BPS {address of case statement (n) } 

<case headi n q > case <expression> o f 

*<e*pression; LIT { “$ > ? M P I ? 1^2 

*faddress of end of case block)? S6P; BPA 



<case block> = oegin <case block bodv> ? eno 
N/A 



<case block body> <statement> 

* < s t a t e^en t > ? BPS {address of end of case block) 

1 <case block boov> ; <statement> 
* s a m e as product ion 182 



ALGOL- M PROGRAM LISTINGS 



lOOhi /*load point for compl Ut'X 

/X xxxxxxxxxx «yst^ni 1 i torn Is xxxxxxxxxx xy 

/* XXXXXXXX.XXXXXXX*:*: XXX^X^XJSXtfXXXXXXXXXXXXXXXXXxXXXXXXXXXJfcXX */ 



dec lare false 
t r ue 
l 1 t 

bdos lit 
s tar tbdos 
max based 
boo t lit 

ps far ks ize lit 

intrers Ize lit 

dr 1 lit 

proc I 1 t 

f i 1 eeo f lit 

r f 1 1 e lit 

ldents ize 1 i t 

addr lit 

forever lit 

varcs ize lit 

i ndexs ize lit 

siatesize lit 

maxo uc o un t lit 

r r lit 

If lit 

str 1 ngde lira lit 
ques t lonraark 1 i t 

tab 1 i t 

co 1 in lit 

comment 1 i t 

c o nbuf f s ize 1 i t 
eolchar lit 

haclit b Is ize 1 1 t 

sonrcerecs ize lit 



literally ’O’, 
literally * 1 * , 
literally ’ literally’ , 
’5h*, °ntry point Jo 

address 1 ti i t ia 1 ( 5h) • /Tad-ir 
s tar tbdog address, 



disk operating- system X/ 
of ptr to top of Ldos xs 



0 ’ . /*• e x 1 

48 ' , 

’ 128’ , 
declare* . 

’ procedure * 

• 1 ’ , 

’ 20 * . 

*32* . 

* address * , 
wh i 1 e true * , 

100 * , 

address ’ , 
address ’ , 

23 * , 

13* , 

0a h* , 

* 22 h ’ , 

* 3 f h ’ . 

* 09 h* . 

* 3ah’ , 

* 0 ’ . 

f 82’ , 

0dh’ . 

’ 64’ , 

’ 128’ * 



to return to operating system */ 
‘f- stack sizes for parser '*/ 



ha s hma s k 


1 I t 


’63* , 










con tchar 


1 1 t 


* 3c h ’ . 










eo f f 1 1 1 er 


11! ’ 


lah ’ , 










percent 


lit * 25h ’ : 










dec lare naxrno 


1 1 tera 1 ly 


’ 132 * ./* 


max 


read 


count 


X/ 


ma x 1 no 


literally 


’ 190’ , /x 


max 


look 


count 


X/ 


ma xpno 


1 1 tera 1 1 y 


’ J 90 ’ , /x 


max 


push 


count 


x/ 


ma xs no 


literally 


’373’ , 


max 


state 


c o un t 


X/ 


starts 


1 i tera 1 1 y 


' i ’ , /* start 


state 


*/ 




prodno 


1 i tera Lly 


* 183* ,/* 


number o f 


prod uc t i 



*/ 



setnic 



literally *0*,,'x semicolon */ 



co lone 


literally 


* 13* ./* 


colon x/ 


doc 


1 1 te ra 1 1 y 


* i 8 ’ . /X 


do x/ 


eo f c 


literally 


’ 24 * , yx 


eo f 


e ndc 


literally 


’ 26 * ./X 


e nd x/ 


s tr 1 ng 


1 i tera 1 1 y 


* 49 * . 


3 tr i ng x/ 


d^c 1 ma 1 


literally 


* 32* , /r 


d^c ima 1 


lntegerc 


literally 


’ 33 * , /x 


integer 


procr 


1 1 t e rn lly 


*54’ . /x 


procedure x/ 


Identifier lit *33’ 


, / X iden t if ierx/ 


t e rran/' 


literally 


’ 55 ' : /x 


terminal o o un t 



declare shloo address initials O'Mi) , 

s«'*iro*»burf based Ioim «our r '°r <i i’? Iz^ ) byte, 

& 4 , u r r p t r byte iai flab st-nrcerecs ize) , 

b ii f f p t r b y t e 1 n 1 t 1 a I ( 23 3 ) , 

errorcount address initial O*. 

1 1 nebuf f ( co nbuf fs ize ) byte, 

line ptr byJo lnltlnlfO>. 



120 



I lneno 
pass 1 
pass2 
no lnt f 1 le 
rfcbaddr 
r f c b based 
wfcb< 33) 

c urso arc e pecs ize 
no look 
produc t 1 o n 
arrllocf 5) 
arrfnuin 
s ub$proc$ loc 
s ubSproc Svn rtnun 
a r r$d 1 rn 

d i s Kou t buf f ( Intrecs ize) byte: 



address , 

byte initial! true) , 

b y t f> i n i t i a 1 ( f a ! s e ) 

byte i n i t 1 a 1 < f a 1 s e ) 

address initial , 

rfcbaddr (33) byte, 
byte ini t ia H 0, ’ 
byte Ini t la Ksouro 
b y t , 
by t o . 
address . 
byte , 
address . 
byte , 
by te , 



'aln’ , 0 , 0,0.0) 



recs Ize ) 



/* the fo 1 lowing global variables are used by the scanner */ 



declare token byte, 

ha a he o d e byte, 

ne x t c bar byte, 

accumt Idents ize) 
co n t by te : 



/ * type of token just scanned */ 

✓ * has value of current token */ 

/'* current character from get char */ 
byte, /* holds current token. */ 

/* indicates aeciun was full, still more */ 



/*************:****:*** ************************** *********/ 
/* symbol table global variables */ 

/*******************************************************/ 



declare base address, /* base of current entry */ 

hnshtable(hnshtblslze) address, 

sbtbltop address, /^current top of symbol table*/ 
sbtbl address, 

ptr based base byte. /*first byt^ of entry */ 
aptraddr address , /^'utility variable to access table*/ 

addrptr based aptraddr address, 
byteptr based aptraddr byte, 

prlntname address, /*se t prior to lookup or enter*/ 

symhash byte, 

prpvlblkf leve K 12) byte, 

prevllndex byte i n l t 1 a 1 ( 253 ) , 

s tepSf lag byte , 

blkScnt byte lnitial(O), 

b 1 kS level byte lnitinl(l); 



declare read i da ta< 0 , 39 . 12. 1 5 , 53 , 55 , 2 , 49 , 32 , 53 , 53 , 5 , 8, 8, 19 , 20 , 26 , 27 , 3 1 
, 34 . 35 . 39 , 40 , 42 , 43 . 48 . 53 , 55 , I 9 , 20 . 26 , 27 , 3 1 , 34 . 35 , 39 , 40 , 42 . 43 ,48,53 
,53,33,33,53,53, 13,33.55, 23 ,2,3.9, 20 , 28 , 49 ,52,53,55,53,2,3,9. 20 , 49 
, 32 , 53 . 55 . 49 ,55,2.3,9. 20 , 49 , 52 , 33 . 55 . 2 . 49 ,53,55,2. 49 ,55,2,2,2. 49 , 55 
,11, 14. 34, 51, 55, 13. 7. 4. 55, 55, 2, 13. 14, 2. 14, 14, 2, 8, 11, 7, 11, 7. 11, 11, 2, 8 
,4,6. 10,24,33,33, 16.7, 11,2.7. 1 1 , 17,7, 1 1.7,40,53. 11, 19,20,27,31,34.35 
,39.40.42.43,48,53,33.32,35. 14,8, 19,20.27.31.33,34,35,39,40,42,43,44 
,45,47,48.50,53.54.55, 4, 11 , 1 . 12, 15,21 , 7. 11 ,7, 1 1 ,4, 1 1 , 1 ,7, 12. 15 ,32, 7 
, 13,36,2.3,9,20,29,30.49.52,53,55,8,8.8.2,2,2,23,39,49,52,53, 18, 11 
,33,33,44.43,47.30.34.7,11,35.7. 11,8. 11,41,55.38.30.51.46.22,37.7,22 
,19, 27 ,31, 34 , 35 , 39 , 40 . 42 , 43 . 48 ,55,7.3,5,9,0) ; 



dec 1 are lookl data(0, 12, 15, 0.13. 0,2, 0,2. 0.11. 0,14, 0.8, 17, 32, 0,2. 14, 0,14 
,0, 11,0, 14.0, 11,0, 11,0,2, 14, 17,0,6, 10.0,6, 10.0,6, 10,0,6, 10.0,6. 10,0 
.6, 10,0,16,0, 16,0, 16.0. 17.0, It, 0.25, 0.23,0, 1 1,0, 11,0,33,44.43.47,50 
. 34, 0, 1 1 , 0, 33 . 0. 46 . 0. 33. 44 ^5 . 47 . 30. 34. O, 32, O. 22, 0, 46 , 0, 3, 5 , 9 . 0) ; 

declare applyl d a t a ( 0 , 0 . 1 . 0 , 9 . 0 . O , 0 , 1 3 1 . 1 45 . O . 0 , 1 49 . 0 . 0 . 0 . 0 , *4 n.14,15 

.40.93,0,37,93, 143,0.37. 1 48 . « . 0 , 0 f 27 . 130,0.3,4,32,95,0,0,0.4,6,22,24 
.33,36.39,86,94,95. 112, 122. 130. 134. 136. 137,0.0.7.8, 10, 16. 17.0. 11, 18 
.0,26.0. 124,0.3.4,3. 14. 15,27,32.37.40.93.93,96. 101 , 143. 150.0.0,0.0 
, 6 3 , 0 , 0 , O , 0 , 0 . 0 , 0 , O , O . 0 , 0 , o . O , t) , 0 , 42 .46,0,61 .0,0, 0,0,0, 14. 15,37,40 
, 93 , 101 , 143,0,0,3,79.0. 30 . O . 3 \ . 33 . o , O , 0 . 0 . 0 . 0 . 0 . 0 , 0 , 0 . 0 . 0 , 125,0.0,0 
,0.0,0,0,0,0,0,0,0.14. 13 , 27 . 37. 40 . 93 . 191, l 43 , 150, 0.0. 0.3 2. 0.0, 0,0.0 
) ; 



declare rend2< 254) adilr* 4 *?^ Ini Mat 



(0. 195,331,302,54. 16 1 , 4 . 264 . 263 . 262 , 160, 10,353,358.23 
, 29 , 196,32,36.290,38. 195,41.336.42.46.53. 1 59 , 28 , 29 , 37 1 , 32 , 36 , 290 , 38 
, 195,41, 336 ,42,46.53. 139. 344 ,310, 309 . 368 , 333 .35,70. 289 , 3 . 7 . ’ 6 . 29 , 33 
,264,263,262, 160, 161.3.7. 16,29,264.263.262. 160.312,313,4,7. 16.29.264 
,263,262. 160,292. 157, 162.343.298, 157. 162.3,208,300, 157. 162.20,25,57 
, 32 , 69 . 229 .218, 273 , 62 , 367 . 363 . 228 . 283 , 363 . 283 , 285 , 360 , 357 . 279 , 12,356 
,13,361,21 1.353 . 352.274. 11,18.191 .208,287.26.207.209,6,31 I . 12,243 
.291 .294,217, 158. 163.269.28.29.32.36.290.38. 195.41 .336,42.46,53, 159 
,37, 164,281 , 14,28.29,32,36.268,290,38. 195.41,336,42, 155, 156.214,46 
.49.33,36. 139,280.282, 158. 134.327.370.295,302,362.364.284.206. 153 
,261, 154,327,318,261.24.39,4.7, 16.29,34.35,264,263,262. 160. ,93.359 
,354.293,299,301,31.40.264.263,262.27.2!, 65,268, 155, 156.214.49,56 
.297.304,66,296,303. 15, 19,341, 163,270.30.5 1 .45.30.317,325.30.28,32 
.36,290.38. 195,41 ,336.42,40, 106.260.0,0, 17,0) : 



dec lore 1 o<> K 2 ( 101 ) address Initial 

(0,2,2. 320 ,23,829.43.212.44.215.47. 307 ,48.271.240.265 
, 240 , 58 . 59 . 39 . 265 , 60 . 263 , 61 . 305 . 63 , 273 . 64 , 277 , 67 . 206 . 68 , 68 , 265 , 240 
,71,71. 246 .72,72,231.73.73.250.74.74. 247 .75.75, 248 .76.76, 249 ,80,252 
,01 , 253.82,254,88, 257.92,267. 120,319, 121.320. 127.366 ,128, 365. 131 . 131 
, 131 , 13 1 . 131 . 131 .35 1 . 139. 238.210, 142. 144.202, 145, 145 . 145 , 145, 1 - 15 , 1 45 
.349.227,219, 147.333. 149,200. 132, 132, 152.244) : 

declare apply2( 177) address initial 

( 0.0.77.280. 101 , 194, 192. ICO. 115. 116,114. 189.201 ,203 
. 124. 141 . 104.216.213. 190.370.372,224. 197,222. 187.223,219.225,226.220 
.97. 143.342,343.221 . 13 1. 13 1 .388,242.231 ,93, 108, 1 10,314.313,203,316 
, 104.339.326, 109.241 . 105. 106,245, 107.340. Ill, 103, 190, 168. 17 <>, 172 . 169 
, 17 1 , 167, 174, 175, 173.256.255.83.258. 176. 176,90.87,87,87.87,87.87,87 
, 176,09,87,87,87.257, 199.9 1. 177,272.270. 183,99,98,276, 137, i 02, 266 
, 134,237,70.234,96.285. 1 13. 1 18, 1 19. 1 17.306,308. 132.84,85. 135.93,93 
.93.93.93,93,93.94, 130,148. 188.146, 179, 178,323,322.321.324.06,330 
.233. 126,79,232. 112. 140, 125, 136.337.334, 183,204. 150,346.347 .348, 186 
, 129,350, 182. 133.239,239.239.239.239.239.239.239.239.259, 122.205. 181 
, 180.236, 123.369, 138) : 



dec lare index 1 da ta ( 0 , 1 . 2. 50 . TO , 4 , 70 , 6 , 6 . 1 1 . 6 , 6 , 12. 13, 1 4 , 28, 6 . 6 6 , 42 . 43 
.43.70,46.70.47.6. 238 . 49 . 30 .50,60,59.60.68.70,70, 133,78.70. i 33 , 8 1 , 82 
,85.85,86,87,90.91.92,93,94.99.95,96,97,98.99. 100, 103, 105,90, 106,91 
, 108. 109, 111, 113. 103. 1 14. 116. 117, 117, 117, 117, 127, 117, 119, 120,50, 122 
, 122, 122, 123, 125, 126. 70, 128, 128, 129. 131, 132. 134, 135,70,70,39. 148, 149 
, 150. 151 , 152. 171 , 173, 176 . 177, 179, 181,183, 1 87 , 188. 189 , 190 . 19 l . 20 1 ,202 
, 203 , 204 . 203 . 206 , 207 . 207 . 70 , 208 . 209 .212.212,213,213,214,70.213,221 
, 223 , 70 , 224 .70,70. 226 . 227 . 220 . 229 , 230 . 135. 233 ,213, 234 . 234 . 256 . 233 
,238,249,250, 1,4, 6, 8, 10, 12. 14. 18.21.23.25.27,29,31,35,38.41.44,47,50 
. 33,33.37, 39.6 1 . 63,63 .67. 69,71 .78, 80. 82.84,9 1 , 93,95,97, I , 2.4, 4,5 . 6.7 
,7, 8. 0.8, 8, 8. 8, 8, 11, 12. 14, 14,15,15. 16, 16. 16,16. 16.17, 17. 19.19.24.24 
,24,28,28,28.31,32,32.33.33,33.33,33,33.33.33,33.33.33.36,30.41.42 
,42,60,60,60,60,60.60.61.61,61.67.67.70.70,70.70.70,72,72,72,74.74 
.90,9 1.9 1,92,92.92.92.93.93.95.96.97,97.98,99.99, 100, 10 1 . 102. 102, 103 
. 103, 104, 104, 103. 106, 106. 106, 107, 107, 107. 108. 108. 108, 108. 108. 108. 108 
. 109, 109, 109, 109, 112, I 12. 1 14. 115. 1 15. 1 16, 1 16, 1 17, 1 18, 126, 127, 127, 130 
, 130, 130, 132, 132. 135. 136. 136. 136, 136, 137. 137. 137, 138, 139, 149, 141 . 142 
, 143. 144, 143. 146, 148, 148. 149. 150, 150. 151. 151. 152. 152, 153. 154, 154, 153 
, 155. 156, 157. 157. 158, 158. 139, 169. 169. 170, 170. 171 , !7 1 . 173, 174, 175, 176 
, 176) j 



dec lare lndex2 data(0, 1.2. 9. 0,2. 0.5, 5. 1,5,5. 1, 1. 14, 14,5,5,5. I, 2. 1.8. 1,8 
,2.3. 1 1, 1.9. 9. 8. 1.8, 2. 8.0. 13.3.8. 13, 1,3, 1, 1. 1.3, I, 1. 1. 1, 1, 1. 1. 1, l, 1 
. 1.3.2, I, 1,2. 1. 1.2,2. 1,2,2. 1.2, 2. 2, 2. 2. 2. 1,2,9. I. 1, 1,2. 1.2.0. I, 1,2. 1 
,2,1.13.8.8,1.1,1,1,1.19.2.3,1.2,2.2,4.1.1.1.1,10.1,1,1.1.1.1,1,1,0 



,1.3. 1.1. 1.1. 1.8. 6. 2. 1.0. 2 8.8.1.1,1.1.3,13.1.6,2,1.2,1,11 
.2, 2. 2, 4. 3. 2. 2. 2. 2. 2. 4. 3, 3. 3. 3. 3, 3, 2. 2. 2. 2. 2. 2. 2. 2. 2, 7, 2, 2 
,4. 1 , I, 2. 0 . 0 . 2. 0 , 2 . 0 , 0 , 1 , 0 . 1 . 0 , 0 , 1,2. 1,2. 0,2.0, 1,0,0, 1,2.2 
. 1.3. 1.0. I . I . 0 . 0 . 0 . 0 . O . O . O , 0 . 0 , 0 . 0 , | , 1 . 1,0. 1 . 0 , 2 . 2 , 3 . 1 . 1.0 

, 0 , 0 , 2 , 2 . 0 . 0 , 0 , 0 ,o. 1 , 0 . 2 . 1 . O , I, 0 , 2 , 2, 1 , 1 , 1 , 2 , 2 , 0 , 2 , 2 , 2 , 1,2 

, 1 ,2,2. 2,2, 2, 1,2, I . 2 . 2 , 2 , 2 . o , | , o . l \ 1,2, 1 , 1 , 1,2, 1 , 2 , 2 , 0 , 2 

, 2 , 0 . 0 , O , O , 1 , 1 . l , I , l.o,;]. ; . : . [ . o . l , 1.2. I. 0,0 .0,0, 0,0, 3, 3, 2 

,2.2,2. 1 . 2 . 3 , 2 . 0 . 2 . i . 2 . 3 . * ' . 2 > : 



I ,3,3,2, 2 

2 . 7 . 2. 2. 2 
O , 0 , 0 , 3 , 1 
2. 2. 0,2,0 
1 , 1 , 1 ,0,2 
o , l , 2 , O , 2 

3 . 2 . 2 . 3 . 2 






£***************/ 

/* global procedures */ 

raonl : proc ed tire ( f , a ) ; 

dec lare f byte , 

a address; 
go f o bdos : 
end raonl ; 

rnon2* procedure (f,a) byte; 

declare f byte, a address; 
go to bdos ; 
end mon2: 

mo n3 : procedure ; 

/*used to return to the system*/ 
go to boot; 
e nd rao n3 ; 

move: procedure (a,b,l); 

/* moves from a to b for 1 bytes ( 1 < 255) •*/ 

declare (a,b) address, 

(s based a, d based b,l) byte; 
d o wh lie ( 1 : = 1 - 1) <> 255; 

d = s; b-b + 1 ; a = a + 1 ; 

e nd ; 

e nd mo ve ; 

fill: proc (a, char, n); 

/* move char to a n times */ 

declare a addr , ( char, n, des t based a) byte: 
d o wh lie (n - n -1) <> 255; 

dest - char; 
a - a + 1 ; 

e nd ; 

end fill; 

read: procedure; 

declare toggle(3) byte; 
toggle = 1; 

call mo n 1 ( 1 0 , . t o gg 1 e ) ; 
end read; 



prlntcharJ procedure( char) ; 
declare char byte; 
call mo n 1 ( 2 , c ha r ) ; 
end pr Into har : 

print: procedure ( a ) ; 

declare a address; 
call mon 1 ( 9 , a) ; 
end print: 

dlsherr: procedure; 

call pr 1 it t ( . ’ de f * ) ; 
go to boo t ; 
end d Iskerr ; 

openSsource f l le ■* procedure ; 

call fnove(,*alg*,rfcbnddr + 9.3): 
r f c b< 32) = 0; 

If raon2( 15 , rfcbaddr ) - 255 then 

do ; 

call print! . * * > ; 

go to boo t ; 
e nd : 

end openS^o urce T i le ; 

c lose $ 1 n t $ f 1 1 e : procedure \ 

closes a file */ 

If mo n2< 1 6 • . wf c b ) - 255 1 he n 
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call dlskerr* 
end c lose * l n t $f i 1 e ; 

set upS In t$f i le : procedure; 

/* se t upS 1 n t 8 f 1 les a new f Ue */ 
if nointfite then /*only ranke file if this toggle is off */ 
re turn ; 

call mo ve ( . r f e b , . w f c b , 9 ) ; 
wfcb(32>=0; 
call tno n I ( 1 9 t . wf c b ) ; 
if mon2( 22 , . wfcb ) = 255 

ca 11 d 1 s ke r r ; 
end se t up® i n t $f 1 le t 

reviudSsourceSf i le • proc ; 

/*cp/m does not require any 
action prior to reopening*/ 
re turn; 

end rewindfsotirceSf 1 le ; 

readlsourceJf i le : proc byte; 
declare dent byte; 

i f ( dr nt : s mon2( r f i le , r febaddr > ) > flleeof then 

call d i s ke r r : 
return dent; 
end read$source® f 1 le ; 

wr i te 8 i n t ® f 1 le •* procedure; 
if nolntfile then 
ret urn : 

call mo n 1 ( 26 , .dlskoutbuff* ; 

If mo n2( 2 1 , . wf c b ) <> 0 th*Mi 

call dlskerr; 

call mo n 1 ( 26 , 80h) ; /T reset dina address 
end wr i tel in t$f 1 le ; 

crlf: procedure; 

call pr intchar ( cr) ; 
call printchar(lf); 
end cr 1 f ; 

printdec? procedure ( vn 1 ue ) ; 

declare value address, i byte, count byte; 

declare decl(4) address 1 n i t la 1 ( 1000 , 100 , 10 , 1 ) ; 

declare flag byte; 

flag = false; 

count = 30h; 

do 1 = 0 t o 3 1 

do while value > = dec HP; 

va 1 ue = va 1 ue - dec KIM 
f lag= true ; 
c o un t = co un t + 1 ; 

end ; 

If flag or (1>= 3) then 

call printchar(count) ; 

e lse 

call pr lntchar( * ’ ) ; 

end ; 
re turn ; 
end pr i n tdec j 

pr In t®prod : proc ; 

call print(.* prod ~ 8*); 
cell pr 1 n t 8dec ( prod uc t 1 o n > ; 
call cr 1 f ; 
end print 8pr od ; 

pr in t® token: proc; 

call prlntC.’ token = 8’); 

call pr IntSdecC token) : 
call c r 1 f ; 
end pr inti token; 
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era! t : proc< ob Jcode ) ; 

declare objcode byte; 

1 f ( bnf f pt r : = buf f p tr+1 ) >= Intrecsize then /^write to disk*/ 
do ; 

call write®lnt$fiie; 
bnf f p t r = 0 ; 
end ; 

d 1 a ko u t buf f( buffptr) =objcode ; 
end emit; 

c learSl ineSbuf f • procedure ; 

call f 1 1 1 ( . line buff, * * .conbuf fs Ize) ? 

end c lear* 1 ineSbuf f ; 

1 is t 1 1 ne : procedure ( le ng t h) ; 

declare ( length, l) byte; 
call pr In tSdec ( 1 Ineno ) ; 
call pr 1 n t Sdec < pre l ndex 4, l > ; 
call pr intlchari ’ ' ); 

do 1 - 0 to length; 

call pr i n t c ha r ( 1 i ue b i» f f « 1 ) ) ; 
end ; 

call cr 1 f ; 
end 1 is t 1 In* ; 

/x the following variables are used by the parser 

/^KXXXXXXXXXXr.XXXXXXXXX:KXX'XXXXXXy:XXXXXXXXXXXXXXXXXXXXXXXXXXX,U:/' 



dec lare 



list prod 
lower to upper 
1 Is tsource 
debug In 
1 1st token 
errse t 
comp 1 l lng 
codes Ize 
pr tc t 



byte lnltiaK false), 
byte InitialCtr he ) , 
byte lnltiaK false), 
byte in 1 t 1 a 1 ( f a lse ) , 
byte in i t ia 1 C f a lse ) , 
byte lnltiaK false), 
byte , 

address, used to count size of code area */ 

address \ n 1 t la K Of f f eh) , /X used to count size of 



pr t 



x/ 



/x variables used during for loop code generation */ 



forcoun t 
randomf 1 le 
f 1 le io 



byte Init 1 a 1 ( 0 ) , 
byte , 

byte lnit ial( false) ; 



/XXXXXXXXXXXXXXXXXXXXXXX'XTX'XXXXXXXXXXXX xxxxxxxxxxxxxxxxxxx/ 

/x scanner procedures x/ 

/xxxxxxxxxxr.xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

getchari procedure byte; 

declare addeof data ( * eo f * . eo lchar , If) : /x add to end If ’eft off x/ 

ne x t Sso urcelc ha r '• procedure byte; 

return sourcebuf f ( so urce p t r ) ; 
end next Isourcelchar ; 

cheokflle* procedure byte; 
do forever; 

If ( so urce p t r := source p t r-^ 1 )> =c ursourc erecs 1 ze then 
do ; 

s o ur c e p t r = 0 ; 

If readfsourceSf Ue = f 1 leeo f then 
re t urn t rue , 

end ; 

If ( ne^ctchnr : 5 next®«?oii'r oflohar) < > If then 
return false; 

end ; 

end heckf lie; 

If checkflle or (nextcliar = oof f i 1 Kr) then 
do; / X eof reached x/ 
call mo ve ( . ad<le . f , s?}> loc , 5 ) : 
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source ptr 3 0; 

nextchar = next$so?;rc°Schar; 

end i 

linehuff(11neptrJ= line ptr + 1) =nextchar ; 

If next char 3 eo Ichar then 
do ; 

1 lneno 3 1 iitenc. +* 1 : 

If list source then 

call 1 is i 1 i ne ( 1 ineptr-1) t 
1 1 ne p tr = 0 ; 
call clear! Jne buff; 
end ; 

if nextchar 3 tab then 
nextchar = * * ; 

return nextchar; 

end ye tchar ; 

yetnoblankJ procedure; 

do whi le (( ge tchar = * * ) or (nextcliar 

e nd ; 

end get no blank; 



title* procedure ; 

call pr lnt( . ’a lgo 1 ~m vers 1.0®’); 
call cr 1 f ; 
end title; 

pr IntSerror • proc ; 

call pr 1 n t dec ( er rorco un t ) ; 
call pr 1 n tchar (* 

call pr lnt( . 'error(g) detected®*); 
ca 11 c r 1 f ; 
end pr Intferror; 

error: pr ocediir e ( errcode ) ; 

declare errcode address, 

1 byte; 

errorcount=errorcount + l ; 
call pr 1 n t ( . * * ) ; 
call pr int Jdec( 1 lneno) ; 
call printC-* error $* > ; 
call pr lntchflr( ’ *); 

call pr 1 n t c ha r ( h 1 gh( errcode) ) : 
call pr i n tchar ( low( errcode)) ; 
call cr 1 f ; 
call print Sprod : 

If token-eofc then 
do t 

call pr IntSerror ; 
call mon3 ; 
end ; 

end error: 



In ! t la 1 lze fscanner : procedure: 
declare count byte; 
call openlsource f 1 le j 
1 1 neno , 1 i ne p t r = 0 : 
call c learS t Inefbuf f ; 
lourceptr 3 128; 

call ge t nob lank; 

do xhi lo nextchar 3 ’$*; 

call ge t®no®b 1 nnk; 

Iff count (nextchar and 5fh) - ’o’) 

do case co un 1 ; 

if pass 1 then list source 

1 Is tpr od r true; 

no 1 n t f l 1 e r true; 
listtoken = true; 
de bug 1 n 3 true; 
end; /"x of '&/ 

call ge t no b lank; 



/^output line*/ 



3 eo f f 1 1 ler) ) ; 



< = 4 t he n 
True; 



end ; 

end in i t la 1 lzeSscanner ; 

/********:* XXXXXXXXxx.T'XXXXXXVTXXXXXXXXXXXXrXXXXXXXXXXX/ 

/* scanner */ 

/XXXXXT.XXXXXTXXXXXTXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

scanner J procedure; 

put insecure: procedure; 
if not cont then 
do ; 

accum( accum : = accum + 1) = nextchar; 

hashcode = ( hashcode + nextchar) and hashmask 

If accum = 31 then cont = true; 
end ; 

end put inaccura; 

putandjget: procedure; 

call put inaccum; 
call ge tnob lank; 
end pu tandge t ; 

put and char: procedure: 

call put Inaccum? 
nextchar = ge tchar j 
end putandchar; 

numeric: procedure byte; 

re turn( nextchar - *0') <= 9; 

e nd nurae r 1 c ; 

lowercase: procedure byte; 

return (nextchar >= 6lh) and (nextchar < = 7ah) ; 
end lower-case; 

dec iraa 1 p t : proc byte; 

re turn nextchar 2 ' . ’ ; 
e nd dec i ma 1 p t ; 

conv^ toluppertproc ? 

If lowercase and lower toupper then 
nextchar 2 nextchar and 5 f h ; 
end convl toSupper ; 

letter: procedure byte; 

call convltofupper i 

return ((nextchar - *3’) < = 23) or lowercase; 
end letter; 

alphanura: procedure byte; 

return numeric or letter or dec Ima lpt ; 
e nd a 1 phantim ; 

spoo lnufBer 1 c : procedure; 

do while numeric; 





call 


putandcha 




end ; 




e nd 


spoo lnumer ic : 




se tu 


iplnextfc all: 


procedure : 




if nextchar 


= ’ ' th^n 




call £e 


tnob lank ; 




cont = false 


: 


end 


9e t apSne x t Sc a 


1 1 : 


lookup : 


procedure byt 


e ; 


dec lare 


ma xr w ( n# lit 


' 9 * ; 
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declare vocab da ta( 0 5dh, 7ch, - 

* * : * , 5b h » * - * , ’ ** ' 'do' , * go ’ , ’ 1 f ' * ’of’, ’or’,* to 

, ’end’ , ’for’ , ’not’ , ’pic’ . ’ tab* , ’case’ , ’else’ , ’file’ 

, ’step’ , ’ then * , * array’ , * beg in’ , ’close’ , ’until’ , ’ whi 
, ’string’ , ’decimal’ , ’ init ial ’ , ’ integer’ , ’vrlfeon* 
f ^ comment ’ , ’external’ , ’ f u no t ion’ , ’procedure’) ; 
declare vloc data(0,l,16, 32 ,33,81, 111* 117, 152, 168, 1 77 ) ; 
declare vnutn da ta( 0 , 1 , 16 , 24 , 3 1 , 38. 44 , 43 , 50 , 34) ; 
declare count da ta < 0 , 14 , 7 , 6 , 6 , 5 , 0 , 4 , 1 , 0) ; 
declare ptr address, (field based ptr) (9) byte; 
dec lare 1 byte ; 



, , ’ 
, ’ eo f ’ 
’goto' 
e ’ , ’ wr 



compare * procedure byte; 
dec lare 1 byte ; 

1 3 0 ; 

do whi le (fleldM) = accum( 1 : = i + 1)) and 1 < = 

end ; 

return 1 > accum: 
end compare ; 



if accum > maxrwlng then 
re turn fa lse ; 
ptr=vloc(accura)+. vocab; 

do i = vnum(accum) to ( vnura( accum) +coun t ( accum) ) ; 
if compare then 
do ; 

If 1=50 then 

t o ke n= c o mine n t ; 
e lse 

token= i ; 
re turn true ; 
end ; 

ptr=ptr+ accum; 

e nd ; 

re turn fa lse ; 
end lookup; 



/* scanner ma In code */ 

/XXXXXXXXXXXX'XXXXXXXTXXXXXXXXXX'XXXX’XXXXX.X.XXXX.XXXXXX/ 

do forever; 

accum, hashcode* token = 0; 
do while nextchar = eolchnr: 
call get no blank; 
end ; 

lfCnextchar = strlngdellm) or cont then 
do; /* found string */ 
token = string; 
cont 3 false; 
do forever; 

do while ge tchar <> s t r ingde 1 in; 
call put inaccufn; 

If cont then return; 
end ; 

call getnobla nk j 

If next char <> strlngdellm then 
ret Urn ; 

call puts lnSaccum; 
end; /* of do forever */ 
end; /* of recognizing a string */ 

else if numeric or decimalpt Ih^n 
do; /* have digit */ 

token = Integer^: 

do while nex tc hur 3 ’ 0 ’ ; /^e l im leading zeros*/ 

nex t char - ge t . Imr; 

* nd ; 

call spoo 1 nume r 1 r : 
if dec ima Ipt t hv> n 
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, * and ’ 
. ’rend 
i te ’ 



accum 



do ; 

token 5 dec ima 1 : 
call put and char; 
call spoo lnurjer 1c ; 
end ; 

if accum=0 then 

haehcode* arc ’im( accnm ’ = 1) = *(**; 

call se t upSnext a i 1 : 
return; 

end; /* of recognizing numeric constant '*/ 



else if letter then 

do; /'* have a letter 

do while alphanum; 

call putandc liar : 
e nd ; 

if not lookup then 
do ; 

token 2 identifier; 
call se tnpSnext Sea 1 1 ; 
re tnm ; 

end ; 

else /* is a rw hut if comment skip */ 
if token = c o miue n t t he n 
do ? 

do while nextchar <> * ;*; 

nextchar = ge tchar ; 
end : 

call ge t*Qo$b lank; 
end ; 
e lse 

do : 

ca 1 1 s** tSupSnextSca 1 1 ; 
return; 
end ; 

end; /* of recognlz lug rw or Ident */ 



else 

do; special character x/ 

if nextchar = 25 h then 
do j 

nextchar 2 ge tchar; 
do while nextchar O 25 h; 

nextchar 2 ge tchar; 
end ; 

call ge ttno$b lank: 

end ; 
else 
do ; 

if nextchar 3 ’ ? * then 

do ? 

call patandchar; 

If nextchar 2 ‘ = * then 

call pn tandge t ; 
end | 
else 

If nextchar 2 ’ * * then 

do ; 

call putandchnr: 

If nextchar = ’ * * then 

call pu tandge t ; 
end ; 

else call pn tandge t : 

If no t lookup t lie n 
call flrrorf ’ 1c ’ • : 
call pe tupSnex t Sea I 1 ; 
re t urn ; 
e nd ; 

end; z'x of recognlz Inc: special char 
end; of do forever t 

end scanner; end of scanner x 
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/* procedures for synthesizer */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXX K'?:Kxr.*r.XXXXXXXXT’'Y^'£WX:i:XX./ 



Initial IzeSsywtb 1 : proc ; 
l f pass 1 t he n 
do: 

/* fill liasht able with 0’s */ 

call f l 1 i ( . has htable,0,shKhashtblsize,2)) ; 
s b t b 1 r . memo ry ; 
end : 

/^Initialize pointer to top of symbol table*/ 
ab t b l top = max - 2 ; 
end initial izeSsymtb 1 ; 

se taddrp t r : proc < o f fse t ) ; /*se t ptr for addr reference*/ 
declare offset byte: 

aptraddr - base + ptr +■ o F f se t : /*pos i t 1 o n for addr reference*/ 
end se taddrp t r t 

se tSb 1 kS leve 1 Jproc( le ve 1 ) ; 
declare level byte; 
call se taddrp tr( 6) ; 
bytep tr 3 leve 1 t 
end se tSb 1 k$ le ve 1 ; 

are thash: proc byte: 

declare hash byte , 

1 byte t 

hash = 0: 

aptraddr = base + 2: 
do i - 1 to ptr: 

hash = (hash + byteptr( 11) and hashmask: 
e nd : 

re turn hash; 
end g^ethash; 

nextentryJproc : 

base - base + ptr 4 8: 
end nextentryi 

se t 1 1 nki proc ; 

aptraddr - base + 1 : 

end se t 1 1 nk: 

hasht b ISo f •symhashi proc address; 

return hashtab le ( symhnsh) ; 
end hashtb ISo f Ssyrahash; 

1 iml tsi proc( count ) ; 

/*check to see If additional sbtbl will overflow limits of 
memory, if so then punt else return */ 
declare count byte; /*s ize being: added Is coant */ 
if sbtbltop <= (sbtbl + co tui t > then 
do : 

ca 1 1 error ( * to ’ 1 ? 
call mon3 1 
end ; 

end limits; 

se t addr i proc ( loc) ; 

/*se t the address field and resolved bit*/ 
declare loc address; 
call te taddrptr (4): 
addrp t r = loc; 
end setaddrt 

lookupSc urrentSb lk: proc( c hk$b l k' byte: 
declare o hk$ b I k byte, 

1 e n byte . 

n based prlntnnme byte: 



base 3 hash tb ISo f Ssymliash; 
d o wh lie base < > 0; 

ca l l se taddrp t r( 6) : 

If byteptr < chXSb-Ik then 
re t urn false; 

1 If byteptr r chkSblk th^u 
do t 

If ( 1 e n : 3 p t r ) 3 n then 

do wh 1 le < ptr( len + 2) 3 n( ten * ' ; 

If (len len - 1) 3 0 then 

re ttirn true : 

end ; 

end ; 

call *e t l 1 nkt 
base = addrptr; 
end ; 

return false; 
end lookuplcurre n tSb 1 k; 

lookup^proc byte; 
declare testSblk byte, 

tes tS Index byte; 
tea tSlndex = prev$lndex+l ; 
test 9b lk = blk® level; 

do while ( tests index *•= testS Index - 1) <> 255; 

If lookupScurrentSb lk( tes tSb ik) then 
re turn tr ue ; 

testSblk 3 prevfb IkSleve h r^>9 tSlndex) ; 
end ; 

re turn false ; 
end lookup; 

enter *• proc ; 

/ Center token reference by pr intname and syrnhash 
Into next available location in the sytnbo 1 table, 
set base to be a; Inning of this entry and increment 
sbtbl. also check for symbol table full. */ 
dec lare 1 byte ♦ 

n based prlntname byte; 
call 1 iml ts ( 1 : =n+8) ; 

base 3 sbtbl; /*base for new entry */ 
call move (print name + l, sbtbl + 3,(ptr ’• = n)>; 
call se t addrp tr ( 3) ; /*se t resolve bit to 0*/ 
byteptr 3 0; 
ca 11 se t 1 ink: 

addrptr 3 hashtb l$o f $symhus h ; 
has hta b 1 e ( s yrnhash) 3 base; 
call se tSb IkSieve KblkSleve l) : 
sbtbl 3 sbtbl + l; 
end enter; 

getlentproc byte; /^return lenerth of the p/n */ 
return ptr; 
end ge t le a ; 

getyp£:proc byte: /^returns type of variable*/ 
call setaddrptr (3); 
ret ur n byteptr; 
e hd get ype : 

se ts ab type ' proc ( s type );/*e n ter the subtype in sbtbl*/ 
declare stype byte; 
call se taddrp tr ( 71 : 
byt ep t r =s type : 
end setsubtype; 

get$parm: proc byte; 

call setaddrptr(10>; 
re turn by tpptr ; 
end get parm; 

ge t s iib t ype : proc by te ; /*ro t in*n the subtype*/ 
call se t nddrp t r < 7) ; 
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return byteptr; 
end ge tsub type ; 

ee tyf>e:proc (type); /* 9 et typ^field = type*/ 
vdec lare type byte; 
call ge toddrptr ( 3 ); 
bytep tr = type t 
end se type : 

ge taddr *. proc address; 
call se taddrp tr ( 4 ) ; 
return addrptr; 
end ge t add r ; 



do; /* block for parser */ 

/* pneumonics for ALGOL- fl machine */ 



dec lare no p 


1 i t 


O' . 


str 


1 3 t 


* i * , 


i nt 


1 i t 


’2’ , 


xch 


1 i t 


*3* 


lod 


l i t 


*4* , 


deb 


1 1 t 


•5’ , 


d mp 


1 i t 


* 6 * , 


xl t 


1 i t 


• — » 


aid 


l l t 


’ 8* , 


a 1 s 


1 1 t 


’O’, 


a id 


1 i t 


* 10* , 


a i s 


1 l t 


’ll* 


ad 1 


1 l t 


» 12 ’ 


add 


1 1 t 


* 13’ , 


sb 1 


1 it 


’ 14’ , 


sbd 


1 i t 


* 15* 


mp i 


1 1 t 


’ 16’ ! 


mpd 


1 i 1 


* 17* , 


dvi 


1 i t 


’ 18* , 


dvd 


1 i t 


* 19 ’ 


dneg 


1 I t 


•2T, 


neg 


1 l t 


*22* , 


c i 1 


1 i t 


*23* f 


c 12 


1 i t 


* 24 * 


dec i 


1 i t 


* 25 * , 


pop 


1 i t 


*26* , 


l ml 


1 1 t 


*27* , 


i m2 


1 i t 


*28* 














ca t 


1 i t 


*31* , 


b 1 1 


1 i t 


’ 32 * 


brs 


1 1 t 


’34’ f 


bsc 


1 i t 


*35* , 


lss 


1 i t 


’36’ , 


d lss 


1 i t 


*37* 


9 lss 


1 1 t 


’38’ , 


gtr 


1 i t 


* 39 * , 


dgtr 


1 i t 


*40’ , 


sgtr 


1 i t 


*41* 


e q 1 


1 1 t 


’ 42* , 


de q 1 


1 i 1 


’43’ f 


se ql 


1 i t 


*44* , 


ne q 


1 i t 


*45* 


dne q 


1 i t 


* 46 * , 


sne q 


1 1 t 


’ 47* , 


greq 


1 1 t 


*48* , 


dgeq 


1 i t 


*49* 


sgeq 


1 i t 


’50* . 


le q 


1 i t 


*51 * , 


d le q 


1 i t 


*52* , 


s le q 


1 1 t 


’ 53 * 


1 no t 


1 it 


* 34 ’ , 


dno t 


l 1 t 


* 55 ’ , 


sno t 


1 i t 


’ 56 * , 


land 


1 i r 


57 * 


da nd 


1 i t 


*38* . 


sand 


1 1 t 


*59* f 


lor 


l i t 


*60* , 


dor 


1 i t 


’ 6 i * 


sor 


1 i t 


*6 2’ , 


wic 


1 i t 


*63’ , 


wdc 


i i t 


*64’ , 


wsc 


1 1 l 


* 65 * 


wld 


1 i t 


• 66* , 


wdd 


1 i t 


* 67* , 


wad 


1 i t 


*68’ , 


sbr 


1 i t 


* 69 ’ 


bra 


1 i t 


* 70 * , 


ro w 


1 i t 


*71 * , 


s ub 


1 i t 


*72* , 


rc 1 


1 i t 


*73* 


red 


lit 


’74* , 


res 


l i t 


• 75 * , 


rd i 


1 i t 


’ 76 * , 


rdd 


1 i t 


t 7 * 


rds 


lit 


*78’ # 


ren 


1 i t 


•79* , 


ecr 


1 1 t 


*80* . 


a i 1 


1 1 1 


*81 * 


»d i 


1 i t 


’82’ , 


as 1 


1 i t 


’ 83 * , 


s Id 


1 i t 


*84’ , 


sdd 


1 i t 


*85* 


dad 


1 i t 


’86’ , 


opn 


i i t 


’ 87’ , 


els 


1 i t 


* 88 * , 


rdb 


1 i t 


* 89 * 


rdf 


1 1 t 


’90* , 


edr 


l i t 


*91 • , 


edw 


1 l t 


*92* , 


pro 


i 1 1 


*93* 


SflV 


1 i t 


’94* . 


sv2 


l i t 


*95* , 


uns 


1 l t 


’96* , 


r tn 


l i t 


*97’ 



declare state stateslze. 



s ta tes tack( ps tacks \ ze ) states Ize, 



ha sh( ps tacks Ize ) 


byte, 


syraloc ( ps t ac ks Ize ) 


address , 


sr loc( ps tacks ize) 


address , 


var(pstackslze) 


byte , 


t ype (pstackslze) 


byte , 


8 t ype (pstacksize) 


byte , 


varc ( varcs Ize) 


byte , 


va r 1 nd e x 


byte. 


( sp , rap , mppl , no look) 


byte , 


ons tack( maxoncoant) 


byte , 


c 1 ah 1 ng 


byte i n 1 t 1 a 1 ( 2 ) . 


c lab2 


byte l n i t la 1 ( 23 ) 


c lab le 


byte. 


strfs Ize 


byte Ini t la 1( 10) 


decSs Ize 


byte l n l t i a 1 ( 9 ) , 


n. 


byte , 


pvnura 


byte i n l t l a i ( 0 k , 


save parra 


address , 


parme ba^ed snvepsrm 


byte , 


f pcoiin t 


byte , 


pnrmbage 


e dd r e 3 q , 


proc® type 


byt« . 


( p te a t , l ) 


b y t e , 


po o un t 


i y t a i n l t i a 1 1 0 } , 


t ype te mp 


by i * . 


f f l ag 


S ytp. 


lpcoun t 


/» y t e . 


s 1 den t 


add re si? ; 



Initial IzeSsynt he« ize s procedure ; 
code? Ize ,ori9 tack,c laile - 0: 
prevSIudex = 235; 
blkScat = 0; 
b ikSleve 1=0: 

end Ini t la I lze$?yn thes ize ; 



synthesize: proc t 



/* **** synthesize local declarations ****' X/ 



s i rava r 


1 1 t 


’Obh* 


s ubvar 


1 1 t 


’ 99 * . 


pro 


1 1 t 


* 93 * 


extSproc 


1 i t 


* 03 * , 


b 1 t $ 1 n$ f nnc 


1 1 1 


’ 05 ’ , 


cons t 


1 1 1 


• 06 * . 


lab 


1 1 1 


•07’ , 


i n teger 


1 1 1 


* 08 * , 


s tr 


1 1 1 


’ 1 • , 


file! 


1 i t 


’Och' 


f unc 


1 1 1 


* 0dh ’ 


parm 


1 1 t 


’ lOh * 



dec lare 



( typesp, typemp, typempl) 

( b , te rap) 

(s typesp.st ype mp , s t ype rap 1 ) 
f hashsp , has hmp , ha a hmp i ; 

( sytnlocsp ♦ symlocnrp , symlocrnpl) 
fsr locsp.sr loc mp ) 



byte, 
byte , 
byte . 
byte, 
address , 
address ; 



/* xxxxxxxxxx code creneration proc ’3 xxxxxxxxxx 

/X XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX::r,::XX 



copy: procedure ; 

typegp = type(sp); 
typempl = type ( mpp 1 ) : 
typemp = type(mp) ; 
stypesp 3 stype(sp); 

9 typempl = s type ( mpp 1 ) ; 

9 t ype mp = 9 type ( mp ) \ 
syrolocsp = symloc(sp>; 
symlocrnpl - symlocf mppl) ; 
symlocmp 2 symloc(mp): 
hashmp = hash(mp); 
has hmp 1 = hash(mppl); 

has hs p 3 hash(sp); 
srlocsp = srloc(sp); 
sr loc rap = srloc(mp); 
end copy; 



se tsym 1 ocsp : procedure ( a ) ; 
declare a address; 
s ym loc(sp) = a; 
end se tsyml ocsp ; 

se tsym 1 oc mp : procedure ( a) : 
dec lare a address : 
sym loc ( rap ) = a 1 

end se tsym locmp ; 

settypespJ procedure! ; 
dec lare b byte; 
t ype ( s p) = b ; 
end sett yp^s p ; 



l.T* 



*/ 

X/ 

x/ 



se ts typesp •’ procedure^ b) ; 
declare b byte : 
s t ype ( sp) r b ; 
end s e 1 s t ype s p ; 

se tg typemp' procedure f b) : 
declare b byte? 
s t ype 1 mp ) ~ b ; 

end se tg t ype mp ; 

ge t typemp- procedure! b) : 
dec lare b byte ; 
t ype ( mp) 3 b ; 
end set typemp ; 



sethashmp: procedure ( b ) : 

dec lare b by te ; 
liash( rap ) = b ; 

end ge thgshmp; 

se thnshgp: proced ure ( b ) : 

dec lare b by te ; 
hash! sp) r b : 
end se tliashsp; 

se tsr locgp: proced ure (a): 

dec lare a address ; 
srlo^(sp) • a; 
end se t s r locsp ; 
ge tsr locrap: proc(a); 

dec lare a byte? 
sr 1 oc ( mp) = a ; 
end se tsr locmp ; 

getsrloc’ proc byte; 

Call se taddrp t r ( 8) ; 
return addrptr ; 
end ore tsr 1 oc ; 

genera te • proc ( objcode ) ; 

/^writes generated code and counts size 
of code area. 
declare objcode byte; 
codeslze = codes Ize + 1; 
if not passl then 
call emit( objcode): 
end generate; 

genSlntfv; proc(a); 
declare a byte; 
call generateC Ini) : 
call gonerate(a) ; 
end genl 1 ti t Iv* 

lncrf b 1 k*ie ve 1 : proc: 

prevlb 1 kJ leve 1 ( pre^ Index := prevllndex^ 1 ) 
blkSlevel = blkScnt + 1; 

b 1 kSr n t = blkScnt+li 
call genera te( b 1 1 ) ; 
end IncrfMklleve 1 j 

decrfb 1 kS le ve 1 : proc; 

b 1 kS 1 e ve ] - prevfb 1 k$ l«vn 1 * p r e vS index) : 

prevSludex = prevl ind^K- I ■ 
call genera te ( b Id ) ; 
end dec r*b 1 k$ 1 e ve 1 ; 

calcfvarc: procedure! b) nddr**^s; 

declare b byte; 
return var f b) +• . varc; 
e nd calclvorc; 



b 1 k$ l e ve l 



setlookup: procedure ( a ) ; 

dec 1 are a byte ; 
pritttuame = c a 1 c Ivar c ( a 1 : 
srymha 'h 3 l*nsh(a) ; 
e nd set loo kup ; 

lookup^ouly: pro c edur e ( a > byte; 

declare a byte; 
ca I I se t iooknpt a) ; 

if lo/>kup$c urrentSb I k». b lkf le ve 1 ) then 
re t urn true; 
baseSfla^ = true; 
ret uru false ; 
end lookupiouly; 

ful I® lookup; pro^( a) byte; 
dec 1 are a by t e : 
call se t loo kup( a ) ; 
l f lookup t hen 
return true; 
return false; 
end f u 1 1 $ 1 yokup : 

nornn lSlookupi procedure! a) byte: 
dec la r* a byte ; 

If 1 o > kup$o n 1 y( a ) then 
r turn true ; 
call enter: 
re t urn false; 
end no rma 1 * 1 ookup ; 

count pr t * proc address; 

/^counts the size of the prt 

return < pr tc t := pr tc t + 2*: 
e nd coun t pr t ; 

ge n t wo : pror( a ) ; 

/* writes two bytes of object code on disk for literals */ 
declare a address: 
call generate! hlgh(a) > ; 
cal 1 generate! low! a) ) ; 
end gentwo; 



literal-* proc < a ) : 

declare a address; 
call gentwo< a or 0000 h) ; 
end literal; 

se tcname • proc ; 

pr intname" . c 1 a b 1 tig- : 
s yraha sh-c lab le and has hmo s k : 
e nd se tcname ; 

e nterlcomp 1 lert labe 1 :proc( b) : 
declare b byte t 
If pass 1 then 
do : 

call se tcname ; 
call enter: 

''all «e t nddr ( codes ize b * ; 

e nd ; 

end enterScomp i lerS labe 1 : 

se tlcomp l lerf Inbe 1 J pror : 
dec 1 a re x byte: 
clabie = c lab le + 1; 

call se tc name ; 

1 f pn«*<2 then 
x = loo ku p ; 

end se t $<’ o mj» 1 1 « r $ la be 1 : 



c o nrp 1 lerSInb^ J • proc: 



call «e t So o rap i lerS la he 1 ; 
call gen$ t wo ( ge t ad dr > : 
end corapi lerS labe 1 ; 

«et$entf»r ' proc(a): 

dec lare ( a , b) byte : 
b r c 1 o b 1 e : 
c lab 1 e r a ; 

call enterfrornpi lerS labe l* 0) : 
c lab l e = b ; 
end s? e t Senter ; 



branchSc lauso ! proc(a); 
dec lare a byte t 
call genera te ( a) : 
call compi lerflabe 1 ; 
call s»e t l ype rnp( c 1 ab 1 e ) : 
end branchSc lause j 

ppocess^aseJlabe 1 : proc(a): 

declare (a,b,x) byte: 
b ~c table; 
c l ab le - a ; 

call g® nera te ( bra ) ; 
call s e to name 1 
i f pass 2 t he n 
X s lookup ; 

call gen5two( ge taddrl ! 
c 1 ab le = b ; 

end proces»9lcas?p$labe 1 ; 
easels ta te : proc : 

ca 1 l processlcasel labe 1( type l mp-2) ) : 
n= n+ 1 : 

c 1 a b 1 e = c l a b 1 e +• 1 ; 
call enterlcompl lerf labe H ; 

end casel^tatei 

1 1 1 1 o ad : proc ( a ) ; 

declare a address: 
call ?entwo(a or 0c00Oh> ; 
end 1 1 t l oad ; 

s teptgenJ proc: 

call genera te(ndi) : 
call generate(s Id) : 
call enterlcompl lerllabo MO 1 : 
call 1 1 t load ( s Iden t ) : 
end s te p$ge n : 

chktypl: proc(a): check np.sp to see If they are both decimal */ 

declare a byte: both integer , one of each, or nlether *’ / 

if ( 9 t yperap= In t ) and < s types p= in t ) then 
call generate(a) ; 
else 

if (§typemp=dec) and < s t ype s p=dec ) then 

call gcnerate(a+l) : generate decimal operator 

e Ise 

if ( s t ype mp = dec ) and « s I ype s p= 1 n t > then 
d o : 

call generate 1 c 1 P : /* c ouver t integer to dec irtal */ 

call generateln* 1) ; 
end ; 
else 

If ( s t ype mp= 1 n t > nitu ( s t ypes p = «1 ec > then 
d o ; 

call ge nera ' e 1 c { 2 ) : 
cal l ne rn t » t a- 1 > : 
call N t yp-'mpi dec) : 
e nd : 
e Ise 

if typomp' > f »iuc »r pass2 then 



; ru» 



call error ( * rof * * ; 

end c hJt t yp 1 ; 

chktyp2: proc byte: 

If stypesp <> stypercp then 
do ; 

call e r r o r ( * mm * ) : 
return false; 
end ; 

return true; 
end chXt yp2 ; 

chktyp3* proc byte; 

call sets typerap(styp^sp) : 

If ( s t ype sp= 1 n t ) or t s t ype r? p r dec ) then 
ret urn true ; 
call error < * mf ’ ) ; 
return false; 
end chktyp3; 

chk.typ5: proc byte; 

if ( g typempi >3 tr) or f s t yne s p< > s t r ) then 
re t urn f a Ise ; 
else 

re t urn true ; 
end chktyp3; 

chktyp6 *• proc ; 

If pas a 2 t hen 
do ; 

If < s type mp= 1 n t ) and f s t ypes p= dec ) then 
call e rror ( Id * ) ; 

If ( typemp< >s Iravar ) and ( t ypemp< > s ub var ) and ( typemp< > f 11 e 1 ) 
do t 

If ( typemp< > f unc ) or f not fflag) then 
call e rror ( ’ as * ) : 

end ; 

; * end* 

and. chktyp6 \ " ,, 

gencon t proct sub type) ; 

declare (1, sub type) byte; 
genSaccurn: proc; 

If pass2 then 

do i- 1 to accum; 

call eml t ( accuraC l ) ) ; 
end ; 

end ge nSacc uni; 
call genera te ( sub type ) ; 
call se t typemp( cons t ) ; 
call se ts typerapCsub type * ; 

If subtype 2 in t then 
do ; 

1 f accum> 3 then 
ca 1 1 error ( ’ lo * ) ; 
call gre nlaccumi 
1 T pass2 then 
call era! t( 0) ; 
codes l2e = codes l^e+2: 
e nd : 
e ise 

do forevpr ; 

If subtype=str then 

do 1 = 1 to accum; 

call ge ne ra nccnm( 1)): 
end ; 

e Ise 
do ; 

call genSaecum: 

codes lze = co«lp3 1 7,e ^ * ncc un+ P /2 ; 
e nd ; 

If co n t t he n 

call scanner: 



then 



137 



else 
do ; 

If s ub t ype = d e c then 
call ge n t wo ( 0 ) ; 
e lse 

cod^s ize “ codes Ize + 2: 
call genera te(0) : 
re turn: 
end : 

end : 

end gencon; 

processSs tore ' proc(a) ; 
declare a byte; 

If chktypS then 

call geaerate(a+2) ; 
else 

call 0 hk t y p 1(a): 
end processes tore : 

genSloo i proc(a,b) : 
dec 1 are a byte , 
b address; 

If a =lnt then 
call llteral(b): 
e lse 

call lltload(b); 
end gen® loc : 

getffleld! proc; 

genSreadi proc(a); 
dec 1 are a byte ; 

If stypempl=lnt then 
do ; 

call generate(a) ; 
call ge ne r a t e ( s 1 d ) ; 
end : 
e lse 

if a t ype rap 1 = dec th^n 
do ; 

call gene ra t e ( a 4 - 1 ) ; 
call genera te(?dd) : 
end ; 
e lse 
do ; 

call genera te( a 4 2> ; 
call gene ra t e * *sd > : 
end ; 

end genlread : 

call genlloc( s t ype mp 1 , s ym 1 o c tnp 1 ) ; 

If fileio then 

call genfre ad ( rd 1 ) ; 
e Ise 

call genfread ( re i ) : 
end ge 1 ® f 1 e 1 d ; 

putffleld: proc(a); 

dec lare a by t e ; 

If fileio then 
a= a + 3 ; 

if s typemp 1 = 1 n t then 
do : 

if t ype rap 1 =sub var 1 3i*: n 
call generate* lod); 
call genera te( n ' ; 

end ; 
else 

if stypempl 2 dec then 
call genera te( a+ 1 ) : 

else 

1 1 genera te( a + 2) ; 
end pu tSf ie Id ; 



i 38 



processSproc • prcc(a) i 
dec lare a byte ; 
call sett ype rap ( a ) ; 

If pass 2 then 
do ; 

call seta»r‘locmp<9r locnrp: =ge tsr loc ) : 
call setst ype mp ( ge t«ubt ype ) ; 
parrabase =base+ptr+i l ; 

«nd : 

end proces?s®proc j 

process® Ide n t : proc ( a ) byte? 
declare a byte; 
if f u 1 I ® loo kup< a ) then 
re t urn ge t ype ; 
e lse 

if pas s 2 then 
do : 

call error ( * ud T ) ; 
re t urn false? 
end ? 
e lse 

return f unc ; 
end process® i den t ; 

processSarray-* proc( a) ? 
declare (a.b) byte; 

if ( ( b : = process® 1 den t ( a ) ) < subvar) and pass 2 then 

do ; 

If b <> G then 

call error ( * 1 n' 1 : 

end : 
e lse 
do ; 

call se ts type mp( /are t s nb t ype ) ; 
call se t s yni loc mp ( syra lo* rap : = ge taddr) : 
call se t t ype mp( s ub var ) ; 
end ; 

end processfar ray ; 

process® 1 de n t$dc 1 : proc( a.h.c) ; 
dcl(a.b.e) byte; 
pvnum= pvnum+ 1 ; 

If not nor ma I S 1 oo kup( a ) th^n 
do ? 

call se type ( b ) ? 
call se toddr(countprt) j 
call se ts ub t ype ( c ) : 
end ; 
e lse 

if pass 1 t hen 

do : 

If ofe t ype* parrn then 
do ; 

call set ype ( b ) ; 
call s e 1 9 ub t ype ( c 1 : 
p tes t 3 p tes t- I : 
e nd : 
e lse 

call error ( * dd ’ ) ? 
e nd i 

end process S j den tSdc I ; 

procSsavt proc ; 

call sen® 1 ntlv( pcount ) ; 
call igen® 1 n t S v( ( p vnurn+3) *2 * : 
call l i t c rn 1 ( s yra I oc mp ) ; 
call g’e nera te ( sa v) ; 
call (ore ne ra t e ( b 1 1 ) ; 

If pro c ® t ype = f unc then 
do ; 

If fl typemp< > tut tli^u 






do ; 

call 1 i t load( sy?n loo rap+4) : 
call literal l? ym 1 o c mp ) ; 
if s t yp*- nip = dee then 
call ge ne r a t e * a l d 1 ; 
p Ise 

rn 1 1 generate' a ls> j 

e nd ; 
end : 

end proems a v ; 

cheokSparm: proc(a) { 

declare a byte, 
b add r ess ; 

If pass 2 t he n 

do ; 

b = b a s e ; 

base- pa pmbase : 
if a ' N tre t sub typo t lie ti 
call error', ’pin’ ) : 
pa r rrbn s e=base+p t r + 8 : 
ba so = •> : 
end ; 

call rn te< iml): 

call te( a) ! 

end chec k*pa rro ; 

procSpro : proc ; 

call rte r a t e ( 1 m2 > ; 

call gen$two( sr loercp 1 ; 
call genera te^ pro) : 
end prooSpro: 

processJprooS-.c 1 • proc(a.b,H : 
declare (a,b,e) byte; 
cal l process# Identldc 1 ( a . b , c ) : 
pvnura, pcount=0; 

call s e t s yin 1 o c mp ( s ym l o c mp : = L?e t a d d r ) ; 

1 f pass 1 t he n 
pr tc t - pr t c t + 4 ; 

If ( proc 9 t ype ♦* = b) = func then 
do ; 

call 1 1 teraKs ym 1 o c mp +4) : 
call generate(xch) ; 
call genera te( 3 Id) ; 
e nd ; 

call branchSo lanse( brs) ; 
i f pass 1 then 
do ; 

call taddrptrC 8) j 
addrptr=codes Ize ; 
sb t b 1 = sb tb 1+3 ; 
ga veparm=sb tb 1- 1 ; 
end ; 

call lncr$b IkS 1 e ve 1 ; 
end processIprorSdr 1 ; 

processlvari proc(a) : 

declare (a,b) byte; 

If ( b * = process^ Iden t ( a ) ) - simvar then 

do ; 

call sets ym 1 o c 9 p ( s ym 1 r> c s p * - jge t a d d r 1 
call 30 1 t ype s p ( s 1 mva r > ; 
call s e t s t ype s p ( t?nb t ype ) ; 

end ; 
e Ise 

if b= f unc th^n 

cal 1 proc ess $ proc ( func' : 
else 

if b > 0 then 

call error ( ‘ 1 p * ) : 
end proce9sf?var: 
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process®** 1 rnvarSdc 1 ' proc ( a ♦ h) : 
declare (a,b) byte; 

call process* Iden tSdc 1 ( a . s i ravar , 3 t ypemp) ; 

If st ype mp< > 1 n t t he n 
do ; 

call l I tera l( ge taddr) : 
if s t ypemp- dec then 
call genera te( b) : 
e lse 

call generate(b+l) ; 

end ; 

end processes imvarfdc 1 ; 

process! labe 1 tproc; 

If pass 1 t he n 
do i 

If f u 1 1 $ 1 oo k*up< mp ) then 
ca 1 1 error ( * dd * ) ; 
e tse 
do ; 

call enter; 

call se t addr ( cod e? ize ) ; 
call set ype ( lab) : 
call s e t $ b l k$ 1 e ve 1 ( b 1 k$ 1 e ve 1 ) ; 
e nd ; 

e nd j 

end process! labe 1 : 

reso IveSlabe 1 :proc ; 

declare ( c hkSb lk, t index) byte: 
if pas s 2 t he n 
do ; 

If ((not f u 1 1 S 1 oo kup( s p ) > or (/retype <> lab)) then 
call error( *ul*>; 
call se taddrptrC 6) ; 
c hkSb 1 k= by t ep tr : 
t Udex=prevSlndex; 
if blkSleve lOchkSblk then 
do : 

do while pre v*l> 1 k* 1 e ve l ( t index) > chkSblk: 
t index 2 t Index- 1 : 
end ; 

call generate( deb) ; 

call generate^ pre vS i nde x+ 1 - t Index) : 
end ; 
else 

call ge n! t wo ( no p ) ; 

end : 
e lse 

call gen* t wo( nop) : 
call genera t e ( brs ) ; 
call gen!two( ge taddr) ; 
end reso lve®la beli 



processSarr ay*dc 1 : proc(a): 

dec 1 are a by te : 

ca 1 1 process! IdentSdc 1( n.^ubvar.s t ypemp) ; 
arr!loc( arrSnum) 2 ge taddr: 
arr!nura=arr!num+ 1 : 
end proc e ssSa rra yf dc 1 ; 

c lose! f 1 le : proof a) ; 

dec lare a byte : 

If process* iden t ( a l then: not 1 mp 1 e rre n t ed 

else call errort’uf*): 
end closefcflle: 

ass Ignis tmt t proc: 
call c hk t yp6 ; 

If (1 pc o un t * - 1 pc n un t - 1 ) < ' ft t he n t e ^ f ~ mn 1 tlple ass 1 <n stmts 

call processes tor?(s i P ; 
else 



14 ) 



call proce88t« tore ( s Id ) ; 
end ass ignfs trat : 



/X execution of synthesize begins here %/ 

If list prod t hen 

call prlntSprod? 
call copy} 

do case production: /x call to systhes lze handles one prod */ 



/tease 0 no t used */ j 

/X 1 < program) < block' —I— x/ 

1 f pass 1 then 
do : 

pass 1 = fa Ise : 

If errorcount > 0 then 

do : 

call pr IntSerror ; 
call mo n3 : 
end ; 

call rewlndfsourceSf i le ; 

call ge n t wo C codes i ze +• i ) ; /x plus one to include the xit x/ 
call gent w( coun tpr t ) : 
end ; 
e lse 
do ; 

call pr Intferror: 
call genera te ( xi t ) : 
call gener a t e t 7 f h) ; 
call wr 1 t e® i n t $ f 1 1 e : 
call c lose® 
call mon3 : 
e nd : 



/X 


2 


<block> J:- < b lock head> /block end) 

; 


x/ 


/X 


3 


/block head> = 


<blook head> < dec lara t lon> ; 


X/ 


/X 


\ 


1 

l 


< beg i n) 


X/ 


/X 


3 


< begin/ : : - begin 
call 1 ncrlb 1 kS 1 e ve 1 




x/ 


/X 


6 


/ block end) = < block body> ; end 


x/ 






call deerfb IkS 1 e ve 1 


5 




/X 


i 


< b lock body> : : = 

} 

1 


< s tateraent) 


%/ 


/X 


a 


< b lock body> : /statement/ 


%/ 


/X 


0 


< dec lara t lon^ : : = 

1 

1 


/file dec larat Ion) 


X/ 


/X 


10 


'simple dec lara tion> 


X/ 


/X 


1 1 


t 

! 


'simple dec lara t ion) 


X/ 


/X 


1 1 




■Initial opt ion> 


X/ 


/X 


12 


I 


<arrny declaration/ 


X/ 


/X 


13 


1 

1 


/array declaration/ /Initial option/ 


X/ 


/X 


14 


< subprogram declaration/ 


X / 


/X 


13 


1 


/external declaration/ 


X/ 






I 



/* 


16 


<slmple declaration) declaration head> 


X/ 


/* 


16 


< Ident If ier> 

call process*® 1 mvarSdc 1 ( s p , a l d ) ; 


x/ 


/* 


17 


<lnltlal opt ion) ::= <lnitlal bead) (constant) ) 


X/ 


/x 


18 


< initial head> •’ ! = initial ( 


%/ 


/* 


\9 


t 

1 < initial head) <eonstant> , 


X/ 


/* 


20 


<dec larat Ion head'' *. : = (declarat <on type> 


x/ 


/x 


21 


1 <dec laro t ion head) < ident if ier> 


X/ 


/% 


21 


call processes l mvarSdc 1 ( mpp 1 , a id * : 


X/ 


/x 


22 


declaration type> ::= string: 
do ; 

call se ts types p( s tr > ; 
call genl 1 n tSv( s tr?s 1 ze ) ; 
e nd ; 


X/ 


/X 


23 


1 string' < 3 i ze opt Ion) 

do ; 

call se ts t ype mp» s t r >5 
end ; 


X/ 


/X 


24 


1 integer 

call se ts types p( i n t > ; 


X/ 


/T 


23 


1 dec lraa 1 

do \ 

call se ts t ypes p( dec ) ; 
call genSint$v( decSe Ize) ; 
end ; 


X/ 


/X 


26 


1 decimal <s Ize opt lon> 

call se ts t ypemp( dec ) ; 


X/ 


/X 


27 


<3 Ize option) t < variable) ) 

If s t ypemp 1 = 1 n t then 

call 1 1 t load ( syiul ocrnp 1) : 
e lse 

call error(’sl’); 


X/ 


/X 


28 


1 ( < integer) ) 

do ; 

call move(calcSvarc( mpp 1 ) f . accum , 7) : 
ca 1 1 gencon( 1 n t ) : 
end : 


X/ 


/X 


29 


<s tatement) : <ba lonced statement) 


X/ 


/X 


30 


1 < nnba lanced statement) 


X/ 


/X 


31 


< ba lanced statement) :*= < simple statement) 


X/ 


/X 


32 


1 <if clause) < true part) else 


X/ 


/X 


32 


< ba lanced statement) 

call se t S e n te r ( t ype mp 1 ) : 


X/ 


/X 


33 


1 < labe l definition) 


X/ 


/X 


33 


< ha lanced statement) 


X/ 


/X 


34 


< unbalanced statement) <if clause) < statement) 

coll se tSenterC typernp) : 


X/ 


/X 


35 


1 ^ 1 f c la us e > < t r ue part) 


X/ 


/X 


33 


e 1.3» < unbalanced statement) 

call set$enter( typenp 1 > : 


X/ 


/X 


36 


1 <lnbel definition) 


X/ 


/X 


36 


< unbalanced statement' 


X/ 


/X 


37 


< t r ue part'* : : - f ba gta te-ient) 


X/ 



do ; 

call branchSc lanse * I>r 3 > : 
cull sot $<? ii f o p f \ yne < s r*— 1) ) : 
e nil ; 



/X 


38 


: label definition’ 


' • - < identifier) : 


X/ 


/X 


39 


call pr^ce^sS lab*' 1 : 


1 < i n b' r 


X/ 



ca l 1 process? In bo 1 ; 



/* 


40 / pimple statement' 


; - 


< b l o c k> 


X/ 


/X 


41 


1 


< ass i gr.tr e n t statement) 


x/ 


/X 


42 


1 


< for statement) 


X/ 


/X 


43 


1 


< wh lie state me nt> 


X/ 


/X 


44 


1 


<read statement) 


X/ 


/X 


43 


! 


< wr Ite state me n t > 


X/ 



/X 


46 




1 (case s ta tement) 


X/ 


/X 


47 




t < go to statement) 


X/ 


/X 


48 


* 


1 < c lose s ta tement) 


X/ 


/X 


49 


* 


I < procedure call) 


X/ 






ca 


11 generate(pop) : 




/X 


30 




1 < 1 den t i f i e r> 


X/ 








do ; 










If ( (ppocess?ldent(sp) <> pro) and pass2) then 










call e r ro r ( ’ nf ‘ ) ; 










call processJproc ( pro > ; 

call pr oc Spro : 

call ge ne r a te < pop) ; 










end ; 




/X 


51 




< ass 1 gnme n t statement^ : .'= <left part) < expression 


X/ 




o a 1 1 


ass 1 gn$s t rat ; 




/X 


52 




< 1 e f t par t > 


X/ 


/X 






''assignment s ta tetcent) X/ 






call 


ass 1 gnls t rat ; 




/X 


53 


do 


<left par t> < variable^ : = 


X/ 








if typemp< >subvar then 

call gen$ loc ( s t yp#»mp , syral ocirp) ; 
Ipcoun t - 1 pcoun t + 1 : 








end ; 




/X 


34 




(express ion> : *. = 'arithmetic express ion) 


X/ 


/X 


35 


i 


1 if expression' (expression) 


X/ 


/X 


56 




^ ar l thrae t 1c express iou> - ♦ = < t^rra> 


X/ 


/X 


57 


t 


1 < arithmetic expression 


+ */ 


/X 


37 




< t-M'tn) 


X/ 




cal 1 


c hk t yp 1 ( a d i ) t 




/X 


58 




1 ' nr i thme t ic express ion 


- X/ 


/X 


50 




< term' 


X/ 




c a 1 1 


c hk t yp 1 ( n b i ) ; 




/X 


59 




1 < arithmetic express I m- 


! x/ 


/% 


59 




f 'ter !!()• 


X / 






if chktypo then 










call ge ne rate(cat) ; 




/X 


60 




1 - ( tarm) 


X/ 




i f 


chktyp3 then 










call genera tel neg» : 




/X 


61 




1 -** ( term' 


X/ 




if 


chktyp3 then : /x. no action required x/ 




/X 


62 




(term) r : = ' pr 1 inn ry) 


X/ 


/X 


63 




1 < terra > fc < primary) 


X/ 




call c hk t yp l ( rap i ) ; 




/X 


64 




1 < t e r iu> pr i raa r y> 


X/ 




c a 


\ 1 


c hk t yp 1 ( d v 1 ) : 




/X 


65 




^priinary> : i = < primary element' 


X/ 


/X 


< 66 


i 


1 v pr :i;nry' x.x ' pr lr:nry •» lement> 


X/ 




call 


c hk t yp i ( ixp < : 




/X 


67 




< p r 1 raa r y e lement • * - < '■'a r tab 1 ^ ' 


HZ/ 






i f 


* typesp = s imvnr 1 he n 





o a 1 1 1 i t l o a <1 ( «■ viti \ <• s p ) : 



;44 



e lse 

If typespO subvar then 
call procSpro : 



/* 


68 


1 < cons tant > 


X/ 


/% 


69 


X 

I < procedure ca 1 1> 


X/ 


/X 


70 


1 ( <a?s Ignraent statement) > 

ca i 1 sets type rap( s typemp :=st ype rap 1 ) ; 


X/ 


/* 


71 

1 

1 


1 ( < express ion> ) 

do ; 

call se ts t ypemp( a t ypernp 1 > i 
call se t type mp( t yp* 1 rnp ! ) : 
end ; 


X/ 


/X 


72 ''constant) < integer’ 

cal 1 gencon! int) t 


X/ 


/X 


73 


i < *1 e o i ma 1 ) 
call gencon(der) ; 


X/ 


/X 


74 


1 <str ingr) 
ca 1 1 gencon! str) ; 


X/ 


/X 


73 


( va r i a b l e ) •’= < identifier) 

call process$var(sp) ; 


X/ 


/X 


76 


1 (subscripted variable) 


X/ 


/X 


77 


(file dec 1 ara t ion> * := (file head > (file name > 


X/ 


/X 


78 


(file he a d > • • r file 

1 

1 'file head> (file name) , 


X/ 


/X 


79 


X/ 


/X 


80 


t 

<flle name> ::= < string:) (lencrth option) 


X/ 


/X 


Q 1 


1 <?trl ng> 


X/ 


/X 


82 


1 (identifier) < length option) 
call process 9 ident$dc 1( mp , fl lei. 9) ; 


X/ 


/X 


83 


1 (identifier) 

call process® IdentSdo Ksp, Fi le 1 ,9) • 


X/ 


/X 


84 


< 1 e ngr th option) •*:= * (identifier) S 

if process® i d e n t ( mp )= i n t then; 


X/ 


/X 


83 1 ’ < integer) Q 

call gencon( Int) ; 


X/ 


/X 


86 


(array declaration) (array list) (bound pair list) 


X/ 



do t 

call genllntSv( arrS<l lm) : 
call genllnt3v( arrSnura) ; 
call genllnt$v( s typ^mp) : 
call generate! row) • 

do while (arrlnum := arrlnum- 1 ) < >235 ; 

call 1 1 tera 1( arr81oc( arrfnitm) ' ; 
end ; 
end ; 



/X 


87 


(array list) ' ' - (array head) 


( identifier) 




X/ 




Call process®array$dc 1 ( sp) ; 








/X 


88 


(array head) (declaration 

arr®nura= 0 ; 


type) array 




X/ 


/X 


89 


1 < array head) 


' Ident ifler) , 




X/ 




call procesglarrayfdc 1 ( mpp 1 ) ; 








/X 


90 


(bound pair list) (bound 


pair head) (bound 


pair) Q 


x/ 






arr®d ira-arrtd ira+ 1 : 






/X 


91 


(bound pair head) * 






x/ 






arrSd 1 ra= 0 : 








/*' 


92 


1 (bound 


pair head) (bound 


pair) , 


X/ 






arr®d lm=arrfd 1 m+ 1 ; 








/X 


93 


(bound pair) (expression) 


• ( express i o n> 




x/ 






If ( s t ype mp( ) i n t ) or f s t ype s p< > j u t ) then 










call error! ’bp’ > ; 








/X 


94 


(subscripted variable) = (subscript head) 




X/ 


/X 


94 


( e xprpss ion) 3 




X/ 



do : 

if stypempl< N int then 
call errort '^h' ) : 
call l 1 t 1 o n d ( s yin l o c mp ) ; 



145 



call genera t e (« ul'o > : 
end : 



ZX 


95 


<subscrlpt head> <identifier> 

call processiorray 1 nip) : 


XZ 


zx 


96 


l 'subscript head> < express l o n> , 
If s type rap 1 <> in! then 
call errorf ’ ?h‘ ) ; 


*/ 


/% 


97 


^ go to statement' :.= <go to'’ M^ntif ler> 

call reso 1 ve$ 1 a be I : 


xz 


zx 


98 


1 < go to> < integer> 

call reso 1 ve * lob*» 1 ; 


xz 




99 


''go t O > ! *. - go t * y 


X/ 


zx 


190 


1 go t O 


xz 


zx 


101 < read statement- — r <read head> < var iable) ) 

do ; 

call ge t $f ie 1 d ; 

If f i le lo then 

do ; 

f 1 le to = f a l se : 
e nd } 

e Ise 

call generate(ecr>: 

end ; 


xz 


zx 


102 


< read head> • • = read ( 
call genersteircn) ; 


xz 


zx 


103 


! read <flle option) ( 


XZ 


/* 


104 


1 ^ read head> < va r 1 a b 1 e > , 

call ge tSf le Id ; 


xz 


ZX 

f 


105 < write statement/ = < wr i te liead> < express ion' ) 

call pn tSf le Id ( wi c ) : 


xz 


/* 


106 


1 < wr i te head> ' tab expression 


) xz 


/* 


107 


♦ 

1 < write head> <pic definition' 


) X. 


/X 


108 


< write head> v.-rite C 

call generate(dmp) : 


xz 


zx 


109 


1 write <file opt ion) ( 


xz 


/X , 


1 10 


1 wr i teo n ( 


xz 


/* 


l 1 1 


t 

! wri f con <flle opt ion> ( 


xz 


/* 


1 12 


1 < write head> < express lon> , 

call pu tSf ie ld( wir > ; 


xz 




1 13 


' - write head> 'tab express ion) , 


X / 


/* 


1 14 


1 

l < wr i t e head> <pic definition> , 
X 

<flle o p t 1 o n> : = v ident 1 f ier> 

if process! lde n t ( s o 1 - filel then; 


X ' 


/* 


1 13 


xz 


/% 


1 16 


i ' tde nt i f ler> < rec opt ion) 
If process* Ident 1 mp » = filel tl^n; 

else call error' ’nf ’ ) : 


xz 


zx 


1 17 


1 ' s tr 1 ng> 

1 

1 <string> < rec opt ion) 


xz 


zx 


1 IB 


xz 


zx 


1 19 
If 


< rec opt lon> : • - . < identifier > 

( C process* lde n t f sp i imvar) and (getsnbtype = i nt ) ) 

else call error < " n i * ^ ; 


xz 

then; 


zx 


120 


l . ^ Into ge r > 

call genco n( 1 n t ) : 


X/ 


zx 


121 


< p i c definition) • ’• = pic head' < p i c 1 1 s t > ) 


xz 


zx 


122 


< pic lie ad > !’= pi*' ’String) 


xz 


zx 


123 


♦ 

1 pi*** • * d n t i f i c r 

i f ( process! 1 de n t ! «t> * = si mva r and ge t sub t ype = s 1 1 ' 

else call error'''!.' .- 


xz 

then; 



• if* 



/* 


124 


<plc list) ?:= f expression) 


X/ 


/X 


123 


1 <pic list) , < express ion) 


X/ 


/X 


126 


< tab expression) * * - tab < expression) 


X / 


/X 


127 


<lf clause) If < boo lean expression^ then 


X/ 




ca 


1 1 branchlc lease* bse ■ ; 




/X 


12B 


<if expression) : : = ^ i f clause) >express ion) else 


X/ 


/X 


129 


< boo lean expression) • • - < boo lean term) 


X/ 


/X 


130 


t 

1 (boolean expression) or 


X/ 


/X 


130 


< boo 1 e n n term) 


X/ 




call chktyp 1 ( bo r > ? 




/X 


131 


(boolean term) : (boolean primary) 


X/ 


/X 


132 


1 not (boolean primary) 


X/ 




If chktyp3 then 








call gene ra t e ( no to > *. 




/% 


133 


1 (boolean terra) and 


X/ 


/X 


133 


(boolean pri mn ry> 


X/ 




call c hkt yp 1 ( ando ) : 




/X 


134 


(boolean primary) • • = (logical expression) 


x/ 


/X 


133 


y 

I ( (boolean expression) ) 
call sets typempt a typetnp i ) ; 


X/ 


/% 


136 


(logical expression) r:= (expression) (relation) 


X/ 


/X 


136 


< express ion) 


X/ 




< 


if ( s typemp=s tr ) and ( s t ypes p= s t r ) then 
call genera te( typerup 1+2) ; 

? ise 








call c hkt yp 1 ( t ypetnp 1 ) ; 




/X 


137 


< re la t Ion) • * = = 


X/ 




ca 


11 ?e t typesp(eql) ; 




/X 


138 


1 < 


X/ 




call se t typesp( lss ) ; 




/X 


139 


1 > 


X/ 




ca 


11 se t typesp( g tr ) : 




/X 


140 


I ( comp) 


X/ 


/X 


141 


t 

( c 0 mp) J : - < > 


X/ 




call se t typemp(neq) : 




/X 


142 


1 ( = 


X/ 




call sett ypemp( le q) ; 




/X 


143 


1 > = 


X/ 




call settypenip(geq) ; 




/X 


144 


(while statement) * ' - (while clause) <do statement) 


X/ 






do ; 








call genera te( brs ) ; 
call gen$ t wo * s ym 1 oc mp) ; 
call set£enter(t ype mp ) ; 








end : 




/X 


145 


(while clause) (while) (boolean expression) 

call branchSc lause( bsc > : 


X/ 


/X 


146 


( wh 1 1 e > : : - wh i 1 e 

call se t a ym 1 oc mp( c ode s i ze ) ; 


X/ 


/X 


147 


(for statement) : • - (for clause) (step expression) 


X/ 


/X 


147 


(until clause) < do statement) 


X/ 






do : 








call gene rn te ( brs ) : 
call genSt wo ( s ym 1 0 c mp t ; 
call set Se n 1 0 r ( f j^pe ( s p- 1 ) ) ; 





e nd \ 



S'* 148 <for c laus#»> s •' = for < ns? .9 1 gnmen f state me nt> xs 

do ; 

i f C typesp< > 9 i mvar ) or ( s types p( > in t ) t he n 
call erroiM ' ni ‘ ) ; 
call genera tp( hrsJ ; 
call co mp 1 1 e r S 1 a l> e I ; 
call sets ym I oc mp ( ro»ley l ze ) ; 
call 1 1 tera Ks ym lor^p) : 
call 1 i t loa<i( s M> a t : ? ym 1 o c s p > ; 



147 



e nd ; 

/T 149 <step express lon^ s tpp < express ion> %/ 

do ; 

If g typosp< > int th^n 
call error ( ’ n i * ) r 
s tepSf lag= true ; 
call 3 tep$ge n ; 
end ; 

/* 150 < unt 11 clause^ : ~ < until non-^rra> <expression> */ 

do ; 

call generate( leq) ; 
call branc hlr lause ( bsc ) ; 
end ; 

/* 13 l < unt 11 non- term) • ■ r until 

If not s tep5f lag then 
do; 

call ge nS 1 n t $v( 1 > : 
call s tep$ge ji : 
e nd ; 
else 

9 teplf 1 ag= f a 1 se i 



/* 


152 


< d o state me n t ) • ’ - do si mp 1 e state rae nt) 




X/ 


/* 


153 


; 

<c lose state me nt> close < identifier) 

call c loseSf 1 le(sp* ; 




X/ 


'X 


134 

i 


i <close state me nt> , 

call c loseSf 1 le ( sp) ; 


< Identifier) 


X/ 


X 


155 


Subprogram declaration) : : - <subprograra 


head i ng> 


X/ 


X 


15 5 
do : 


< s i mp le state me nt) 


%/ 



call 1 3 tera 1 ( gym locinp) ; 
call genera te( uns ) ; 
call genera te( r tu) ; 
call dpcrSb Ikl leve 1 : 
call set Se n t e r ( t ype mp ' ; 
call 1 1 tera 1 ( symlocmp^2> ; 
call gen$lnt$v( 0) : 
call generate(s Id) ; 
pvnuni ♦ pc o un t = 0 t 
f f ,lag- false; 
end : 

156 < subprogram head ing> : : = < function head ing> x/ 

f f 1 ag- t rue : 

y * 157 < procedure heading) x ' 



/x 



/x 



/x 

/x 



/x 

/* 

/x 



/x 

/x 



158 < function heading' 


< paraml^'ts function) 


X/ 


159 


/ function <3 pa rams) 


x/ 


do : 

call gene ra te ( s v2 ) : 
if ptest<>0 and pass 


1 t he n 




call e r ror ( * pd ’ * ; 

end ; 

160 < procedure heading' 


::= <paraml^ss proc> 


x/ 


161 1 


1 ^proc 3 params) 


X/ 


■to ! 

call genera te(sv2) : 

If pfest<>0 and pn«s 1 


t h<» n call e r r o r < ’ pd * ) ; 




e nd : 

162 < pa ram less f unc t ion) *• ’. = declaration t ype) fime t i *. n 


X/ 


162 


<ldentlfier> ; 


X/ 


on 1 1 proce99$pror.$.lo 


It sp- 1 . f unc , s t ype nip ) ; 




163 < function <3 pa ranis- 


* • = < f unn t ion he ad> < Identify »■> ) 


\ *'•' 


do ; 

call process 1 den t $d 


~ l ( mpp 1 .parr, (h : 




pa rtne , p t es t = ( pcoun t * 


= pc o ;ui t + 1 i * 




call pror Ssa v : 

e nd ; 

164 


! < fuue f i<*n 3 params N 


X/ 


164 


< d of. f .u* \ 1 i o n > : 


X/ 



SX 165 






i ft 



*/ 



f uuc t 1 o n he rt*l ' ■ 



d c c l a r n t \ - u t y7>^ ' 



f one t i c i 



163 



f identifier* ( 

cal 1 processSprocSd^ 1( sp-1 . f nnc . s type ; 

166 i < function head? 1 'identifier) 
do ; 

call proceasl Ident $dc l ( rupp 1 ♦ par >n. 8 > : 
pcount = pco an t + 1 : 
end ; 

167 '(paramless proc> *: 2 procedure Ident i f ier> : 

do : 

call proc ess$pr oc $do 1 ( mpp 1 . pro . 0 * : 
call proclsiav; 

end ; 

168 < proc 0 pararcs) * : - ' procedure head> < ident If ier ■ 

do j 

cal 1 processSldentSdc 1 t mpp 1 . parw. 8) ; 
par me , ptes t = ( pcoun t : - pco un t+ 1 ) ; 
call procSsa v; 
end ; 

L69 I ^ proc Q parnms) < dec lara t ion) 

\ 

178 <procednre head> — = procedure Identifier) ( 
ca 1 1 proceas$proc$d< l ( mpp l , pro , 0 * : 

171 I < procedure head> < Identifier' 
do : 

pcoun t = pcount+l ; 

call process$l(l ft n t 1 < mpp 1 , parm, 0) ; 
e nd ; 

172 < procedure call) • : r < ca 1 1 head i ny> < express ion) > 
do j 

pcount 5 pcount+ 1 ; 

call c hec kpa rm( s t ype mp 1 ) ; 

call proc f pro : 

If fpcount< > pcoun t and pass2 < hen 
call erro r ( * pe * j ; 

end ; 

173 <call heading) < ide n t i f ie r > ( 

do ; 

if ( ( b : = process® iden t ( mp) > < > f uuo ) and ( 1>< > pro 1 t h 
call error ( ’ up ’ ) ; 
call processSpro <•(!>); 
f pcount = ge t parm: 
pcoun t = 0 j 
end | 

174 1 <call heading) (expression) 
do ; 

pcount =pcount+ 1 : 
call c hec kparml s type mp 1 ) ; 
end ; 

173 (external declaration) declaration type) ext^ 

173 function (externa 1 list 

176 I external procedure 

176 (externa l list) 

1 77 < externa 1 list) ’ : - < identifier) 

170 1 ' external list) , < identifier' 

; 

179 < case statement) • ’ = <case heading) (case block' 
d o ; 

do 1 - 1 to n j 

ca l 1 process I* c lahle-t » : 

end ; 

call se t$enter( t ype mp • : 
e nd ; 

1 08 < c n s e he ad i jut > * - - c* o ^ o < expre^c ]on) of 

do : 

If s t ype mp 1 < > 1 a t t h*' v 
call errort 'ni ' 1 : 

cal 1 oren#lnt$v(.>> ; 
call genera te( mp i ) ; 
call set Seoinp l lej*S I 1 • 
c a 1 I s r* t t ype mp ( #• 1 ;> !• 1 1 * 



call genera te ( l m2) ; 
call genSt wo (a;e tad dr-4* : 
call a;fnerate( sbr) : 
call cetiern te( bra) ; 
c Ini) I e = c 1 a b 1 e + 1 ; 
call ent er*comp 1 ler5 hih** 1 ( 0 ) ; 
n=9: 
e ud ; 



/X 


101 


<case block> •' : = be^in (case block body> 


e nd 


X/ 


/X 


132 


(case block body' ** *• = < state me u 1 > 




x/ 




ca l 1 


c as eSs t a t e : 






/X 


18:* 


I ''case block body> 


; <state ra eut> 


X/ 




ca 


11 c aseSs t a t e : 






end : 


/*o f 


case s-t a te men t -*^/ 







end synthes Ize i 



/XXXXXXXXXXXXXXXXXXXxxy'T.XX^rr.rxi'/XXXXXXXXXXXX/ 

/* «* r r o r recovery pontine? X/ 

/XXXX%.\. XXXXXXXXXXXXXXX.KxXX^ :rw? '*:*:? iXXXX'-KXXXx.X'X -• 

no conflict* proc (c .state. 1 byt^: 

declare estate state? iz^, < i . .1 . k) Indexs ize : 
j= In* l exit estate): 
k= J M 1 nd e x2 ( c s t a te > - 1: 

do l = J to k: 

if read 1( 1) - token chen return true; 

e nd ; 

re t uru false; 
e nd noconf l 1 c t : 

recover: proc stateslze: 

declare tsp byte, r s t a t e states Ize; 
do forever: tsp = ?p: 

d o wh i 1 e tsp < > 255; 

If noconf 1 ic f ( rs ta tt- : - « fn tes tack' tsp)) then 
do; /* state will read token 
If sp O tsp then sp = tsp — I : 
return rstate; 
e nd ; 

tsp = tsp - 1 j 

end : 

ca 1 1 scanner ; 
e nd ; 

end recover: 



/x xxxxxxxxxxxxxxxxxxxxx rxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxr.’"?'xx %/ 

/x xxxxxxxxxx lair parser rout ines ***-+ x:< ■ -** */ 

/* XXXXXXXXXXXXX'XX'XXTXXK'r.XXXXXXXXXXXXX'.KXXXXXXXXXXXXXX ^yx:! • XT* X/ 



dot /*block for declarations*/ 
declare ( l,j,k) lnd°xsize, index byte; 

Initialize'- procedure: 
call title; 

call Initial Ize ^scann^r; 
call 1 n 1 t 1 a l 1 zeSs y*n 1 1- I ; 
call initialize®^ yn t he « i 7. a ; 
end Initialize; 



getlnJ: procedure Indexs ize* 

return indexK? late* ; 
end gp t I n 1 : 



ffetin2: proeo dure in-lcx? i;^ ; 

re t nr ?t 1 ude x2( state* : 
end a;*' t i n2 : 



; “O 



Incap’ procedure; 

if ( sp : = sp +■ l ) = l»*na:!h( 9 ta testack) then 

call error* 'so' ' ; 

end inesp: 



lookahead? procedure; 
if uo look t lie n 
do : 

call scanner; 
no look r f a 1 ; 

if 1 is t token t he 11 
call pr 1 a * $ tok- i u : 
e ml ; 

e nd loo ka he ad ; 



se tSvarr $ i ! procedure C ; ) ,* 
dec lare 1 by te ; 

sx set varc , and increment varinde^ */ 
va r c ( vo r i nd e x ) = i ; 

i f ( var i ndex : = var i rule :r+ 1 > > length* varc) then 

call error! ’ vo' ) ; 
e nd se tSvorcSi ; 



/* initialize for input - output operations x/ 
call move* . r f cb , . wf cb , 9 ) : put filename in write fcb 

c a 1 1 setups IntSflleS; create a 11 output file for code negated */ 

call initialize; 

do forever; 

do while pass I or pass2; 

/* initialize variables '*/ 

comp i 1 1 n^, no 1 00 k r t rue ; s ia te = starts: 

9 p- 20.1 ; 

var index, var - 0; 

do while compiling; 

if s ta te< r raaxr no then /* read state 
do ; 

call lnesp; «• ^ tes tac k( sp) = sr ta te : 
l = s;e t l n 1 : call lookahead: 

.) = l + (?e t 1 n2- 1 : 

do 1 = 1 t o j ; 

If rendlf 1>= token then sx save token x/ 
d o ; va r ' sp) r va r index; 

/'*: copy accumulator to proper posltio?s '*/ 
do index = 0 to ac'iim; 

call se tlvarcl i( acc ura* index) ) ; 

end ; 

ha s lit s p 1 = ha s he o d e : 

/X save relative table location x/ 
s ta 1 > - r « n d 2 ( L ) ; 
no loo k- t rue ! 

i = j ; 

e nd ; 1 9 e 

if 1 r ,1 then 
do ; 

call Mv-orf’np*): 

l f ( s t n t e : r r o c o ve r ) - ^ t he n c n m p i 1 1 n g- = 1 n I - r : 
e nd ; 
e nd ; 

e nd : e 1 s ** 

If state>maxpn^ then " apply pr?1uc t ion state X/ 
do t 

mp = * p- a^e t j n2 ; rr.pp 1 = nip + l ; 
pr od 11 c t 1 o n r - * > ‘ — mu xpno : 
call yn t lie s 1 * : 

p= mp ; 1 = so | 1 p { : 

va r 1 nd » x= va r ' - ;» ■ ; 



J-statestack(sD) : 

d o wh ile <k:=applyl(i)) <> 0 and j <> k; 
i = 1 + 1 ; 
e nd ; 

lf(state*= a p p i y2 < i ) ) = 0 then compiling 1 = fa N® : 
end; else 

If ? ta te< = maxi no then lookahead state */ 

do ; 

t = ge t 1 n 1 ; call loo ka head; 

d o wh ile I k: - lookH i > J ^ > 0 and token <> k 

i= 1+ 1 ; 
end ; 

s t a t e = 1 o o k2 ( i) : 
e nd ; else 
/* push state */ 

do; call incsp: 
states iack(sp) = ge * i n2 ; 
state - get ini ; 
end ; 

end; /* of whl le ronpi l Ing */ 
end; /^of while pass 1 or pass2*K/ 

1 istsource = false; 
list prod = false; 
listtoken = false: 
call initial Ize ; 

pass 2 = true; 
end; /-Po f do forever*/ 

end; /* of block for parser */ 

end? /^of block for declarations'*/ 



eo f 



l0Oh* /*load point for interp program*/ 



dec lare /*globa 1 


1 i tera Is*/ 






1 1 t 


1 1 tera l 1 y 


1 1 tera 1 ly * , 


true 


1 i t 


’ 1 \ 




false 


1 l t 


0’ , 




forever 


1 it 


* wh i 1 e 


true 1 , 


cr 


1 1 t 


’ Od b * , 




If 


1 1 t 


* 0a h* : 




declare /*op codes for algol- 


m machine 


i ns true t ions*/ 


dec i 


1 i t 


• 25 * . 




s t r 


1 i t 


* 1 ' , 




Int 


i 1 1 


« o » 




do b 


1 1 1 


’ 5 ’ , 




brs 


lit 


•34’ . 




bsc 


1 1 1 


’ 35 * , 




1 m I 


l i t 


4 27* , 




i m2 


1 i t 


• 28* ; 




declare y * Interface points f o 


r op/m and 


interpt/ 


bdos 


1 i t 


’ 05h * , 




boo t 


1 1 t 


’Oh* , 




d i s ki>uf f loc 


i i t 


* 80h * t 




f c b loc 


1 i t 


* 5c h 4 , 




<1 t s kb u f f e nd 


1 1 t 


* lOOh* , 




bdos be g- 1 n 


address 


Ini t i a 1 ( 06 h) , 


max 


based 


bdos begin address, 


buff 


address 


Ini t lal(diskbuffend) , 


c ha r 


based 


buf f byte, 


f i 1 e name 


address 


initial! febloe) , 


f np 


based 


f 1 i e name 


b y t e ; 


declare /*bulld variables*/ 






pr t bas^ 


address , 






p r t J a d d r 


address , 






pr t *en t ry 


based 


pr t Snddr 


address , 


co debase 


address , 






c ode p t r 


address , 






s tarkbaae 


address ♦ 






cure ha r 


byte. 






sw{ t c h 


byte 


ini t i a I ( false! , 


b IdSf lag 


byte, 






b 


based 


codep tr 


by t ^ , 


a 


based 


codeptr 


address , 


temp 1 


address , 






t 1 


based 


temp 1 


byte. 


te mp2 


address , 






t2 


based 


t e mp2 


b y t « : 


/* dec la ra t io ns 


for interpr^ 


ter */ 




dec lare con tz 


1 1 t 


* lab* , 




quo t e 


1 i t 


* 22h* , 




wha t 


1 i t 


*63* ; 





dec lare eo lc har 


1 1 t 


’ Odh* , 


eo f f 1 1 ler 


1 t t 


* lah’ , 


1 n trees 1 ze 


1 i t 


’ i 28 * , 


d Iskrecs ize 


I i t 


* 128* , 


s t r i ngde 1 1 ra 


l i t 


* 22h ’ , 


c o nbtif f s ize 


1 1 1 


*80* , 


c o nso 1 e 


1 i t 


* 0* # 


nra t nc k 


l i t 


*48*. /*stnck. size times 


ma xSb i k$ le ve 


i lit 


MV f 


ne ga t i ve 


l i t 


* 0 ’ , 


pog i M vc 


l i t 


* i * : 



declare ra address , 

rb nHHrc^s . 

r ^ add re s-3 , 



r>n 



c 


based 


rc 


byte , 


fwobyteoprand 


based 


rc 


a »1 d i* e s s 


s b 


address, 






s t 


address , 






bra 


based 


ra 


b y t e , 


ar a 


based 


ra 


address 


ar b 


based 


rb 


address 


brb 


based 


v b 


byte , 


ntpr 


address 






me d 


address: 







dec 1 are 



dec 1 are 



dec Iare 



i npu t buf f er 


byte i n i l » 


a 1 ( c o nb u f f s 1 z e ? , 


buf f Sspace ( conbitf f s i~e > 


byte , 




input index 


byte , 




c o nbuf f p t r 


address , 




f'onle har 


based r 


onbu ffptr byt*’. 


i nputp tr 


address . 




InputSchar based 


1 npu t p t v 


b ; * t e , 


nnraSread 


byte . 




pr i nt buf f leng t h 


1 i t 


'71 ’ , 


pr 1 n t buf fer 1 oc 


1 t t 


• noir , 


tabpos 1 


1 i t 


* 142’ , 


tab pos2 


1 i t 


’ 156 ’ , 


t abpos3 


1 ! t 


’ 170 ’ , 


t a bpos4 


I i t 


1 84 * , 


pr in t buf fer 


add res s 


ini t i a 1 ( pr i n t b v ** f e r 1 o c ) 


pr in t pos 


based 


pr intbuf fer b 7 le , 


print buf f end 


1 i t 


4 Oc 71i ’ , 


rere adaddr 


address , 




i npu t t ype 


byte, 




f le IdS length 


byte , 




s i gn 


byte j 




f I 1 e addr 


address , 




fob 


based 


fleaddr by'r« . 


f c badd 


based 


1 i 1 e addr ad <! r •• .* *5 , 


eo f addr 


address , 




buf ferSend 


address , 




records po inter 


address , 




buf fer 


address , 




ne x t d 1 s kc ha r 


based 


recordSpo inter i>yte. 


regf length 


1 i t 


• 1 28 ’ , 


b 1 oc ks ize 


address , 




b 1 kS 1 e ve 1 


byte 


i n i t i a 1 ( 255 ' . 


errorS f lag 


byte 


i n i t ia 1 ( f a Ic 


blk(maxSblkSleve 1) 


address , 




by t esSwr 1 t ten 


address , 




f 1 rs t f le Id 


by te , 




eo f r a 


address . 




e o f i* b 


address : 




( rO ,r l, r2) (11) 


byte , 




( s i gnO , a 1 gn 1 , s i gn2 ) 


by te , 




<dec$ptO,decpt l,decSpt2> 


byte, 




c tr 


address , 




noSslii f t 


byte, 




base 


address , 




bSbyte based base 


byte , 




bSaddr based base 


address , 




ho J d 


address * 




hSbyte based ho Id 


by t e , 




IiCaddr based M 


add ress , 




p trio ne 


address . 




p t r S t wo 


address . 




pSone based ptrSoue 


byte . 




pStwo based ptrStwo 


byte . 




s t nr k t o p 


address . 




ret Sad dr based stnektop 


address , 




DC bSp l r 


address . 




pc bS value based pcbSplr 


addr p ss . 




r o mi t e r 


byte. 




mo v«* Sr* n t 


address , 




r*> tS v a 1 ue 


address . 





1 54 



tes tva lue 


address 


tad 1 


address 


t ad 2 


address 


t ad3 


address 


rSp t r 


byte , 


overf low 


byte. 


s I gn i f 3 no 


byte , 


e$f lag 


b y t e , 


s S f lag 


byte. 


zeroSresul t 


byte; 



/*cp/ra interface routines*/ 

toon l i procedure ( f unc tion.paroroe ter) : 
declare function byt«* , 

parameter address; 
go to bdos : 
end mo n ! ; 

mo n2 ?procedure( f unc t ion, para me ter) byte; 
declare function byte, 

parameter address: 
go to hdos ; 

^nd mon2; 

mon3 : procedure ; 

go to hoo t ; 
e nd mo n3 ; 

pr 1 n tc ha r * procedure ( c har ) : 
declare c ha r byte: 
call mo n l V 2 , c ha r ) ; 
end pr 1 u tchar ; 

pr 1 n t : proced ure ( bu f f er ) ; 
declare buffer address: 
call mo n 1 ( 9 , buffer): 
end pr 1 n t ; 



cr 1 f i procedure : 

call pr 1 n t char ( cr ) ; 
call pr i nt c har < 1 f ) i 
e nd c r l f : 

/* procedures for build */ 

open® l n tSf l le '• procedure : 
f np( 9 ) = ’ a ’ t 

f np ( 10 ) = • 1 ’ ; 

fnp( 11) = 'n’t 

f np< 32) = 0 ; 

If mo n2t 13 , f 1 lename ) = 253 then 
do : 

call pr 1 n t ( . * n 1 S’): 

call cr If ; 
call mo n3 : 
end ; 

end open! in t$f 1 le : 

reads 1 n 1 3 f 1 1 e ’ procedure byt^; 

return mo n2( 20 , f 1 1 e nn ne ) ; 
end re ad3 1 n t 3 f i 1 e t 



/^global pro.-r*d ures */ 

1 nc buf • procedure : 

IfCbufr • “ buff+1) ' - d h? k_J'» u f f e n d then 
do ; 

buff = dlskbuffloc: 



if read* In tSf i le <> O then 
char - 7fht 

end ; 

end incbuf ; 

a tolcharSinci procedure : 
b 2 char; 

codeptr 2 codeptr+1: 
end s to Sr bar* t nc : 

nextlchar * proced ure byt^ ; 
call Inc buf : 
return cnrchar •*= char: 
end nextchar; 

yetltwoSbyteg.* procedure ; 
b < I ) - nextSchar { 

b - nextlchar; 
end g*e tS t wo *by t es ; 

incScodeptrJ two .‘procedure ; 

codeptr = codeptr +1+1: 
end IncicodeptrStwo ; 

g^e t parm: procedure address; 

return shl ( doub le( nextchar^ , 8) + next char; 

end get parm; 

packJdec 1 ma 1 * procedure ( locSone . loc$two) : 
declare switch byte, 

loclone address, 
locStwo address; 

pac k: procedure : 

If (switch != not switch) then 

p* two - s ti 1 ( p*o ne — 30h, 4 > ; odd 

e life 
do ; 

pStwo = p* two or ( p$one-30h> ; /* even */ 

ptrl two 2 ptrltwo + 1; 

end t 

end pack: 

plrlon© 3 loclone ; 
ptrStwo 2 locitwo ; 
switch - false; 
t e mp l 2 ptrltwo ; 
p§ t wo = 0; 

ptrltwo = ptrStwo + 1 j 

terap2 2 p t ri t wo ? 
pi t wo - 0 ; 

ptrf two = ptrltwo + 1: 

do while pfone <> 0; 

if ( pion^ >= ’0’) and (pSone <= ’9’) then 

do ; 

ca 1 1 pack: 
t I 2 t 1 + 1 ; 

e nd ; 
e lse 

1 f pSo ne = ’ . ' t he n 

t2 2 t 1 ; /* left offset to decpt 

e lse 
do t 

errorff lag 2 true; 
re t urn; 
end : 

If ( ( ptrione := ptrione+1) >= dlskbuffeud) and bldSflae: tfc 
do ; 

ptrlone 2 d 1 s kbu f f 1 : 

If r» adi 1 n ti f 1 l ^ O ' * then 
do ; 

plone ( 2 ) 2 7 f li ; 

r~ t nr n ; 



end : 
end ; 

e nd ; 

1 f swl tch then 
do; 

t 1 = t 1 + 1 ; 

ptrltwo = ptrStwo + l; 
end ; 

t2 = tl - 1 2 : right offset decpt */* 

f 1 = t 1 / 2 ; 
pS t wo - t 1 + 2 ; 
p t r $ t wo = p t r # t wo + 1; 

pStwo - positive; /* t h 1 «* t;*»!d. used for dec sign 

end pac kSdec 1 tnn 1 ; 

/* procedures for Interp 

readchar : procedure byte: 

return raoti2(1.0); 
end readehar; 

read ‘ procedure (a) ; 

declare a address; 
call mo n 1 ( 1 0 , a ) ; 
end read] 

open •’procedure byte: 

return mo n2 ( 16»flleaddr) ; 
end open? 

c lose procedure byte; 

return mo n2 ( 1 6 . f i 1 e a d d r f ; 
end c lose ; 

d Iskjread • procedure byte ; 

return mon2( 20 , f i t e add r > ; 
end d 1 « kr e a d : 

d Iskwr l t e : procedure byte; 

return mon2( 2 1 . f 1 I eaddr 1 ; 
end d l * kwr i t e ; 

make • procedure byte; 

return mo n2t 22 , f 1 lenddr 1 : 
end make ; 

de le te • procedure ; 

cal 1 monl( 19, fl 1 e a d d r ' : 
end delete: 

se tdma ^procedure? 

call rao n 1 ( 26 , huf f r ) : 
end setdma: 

se lec t i procedure ( dr ive ) : 
declare drive byte; 
call non 1 ( 1 4 , dr i ve ) ; 
end select; 

mask! procedur-»( location'* address : 
declare location address, 

1 based location address: 
return l and Obfffh; 
end mask: 

c he c k$ 1 n 1 3s \ gn : proced ure ( vn ! r > byte; 
dec 1 a r e va In? a d d r e -=? : 
if ro 1 ( h i arh< value).!) 

return n-^n t 1 ve ; 
e lse 

return pos i t l ve ; 
end check'iiul^s Ign; 



checks in t : procedure ( s tac kfc 1 o ^ ' bvt e : 
dec tare stackSloc 8d lr*.«? : 
i f no t ( ro 1 ( h i g"h( 5* t ac k$ loo • . 2^ > t he n 
return true : 
else re turn false; 
end c hec k$ i n t ; 

checks t etnp : procedure ( s tack^ * j c * byte; 
dec lare 8 tackJloc addr^-s^ ; 
if ( ro 1 ( hi gli( s tack? loc 1 . i ) ) and 

( ro 1 ( h lgrh( s toe kS loc 2 1 ) then 
return true; 
else return false; 
end checks temp: 

se tSupin^g: procedure ; 

if not checkSlntSs if?n( ara then 
ara - ara or 4000h; 

If not check$lnt$sign(arb’ then 
arb - arb or 400Oh; 
end se t SupSne g“ ; 

checkSne^ • procedure ; 

If not chec kS i n tSs 1 grnf arh ‘ then 
arb = arb and 0bfffh: 
end checkSneg; 

popSg tack: procedure : 

declare num byte; 
ra = rb; 

if c he c kS t e mp ( arb ' t he n 
rb = rb - ( b r r - 2 ^ ; 
else rb = rb - 2 ; 
end popSstack; 

pnshls tack’* procedure! nun) : 

declare num byt^: 
rb = ra ; 
ra - ra + num; 
end pushes tack; 

move : procedure ( source , des t , c o nn f f ; 
declare source address , 
dest address, 
count byte . 

schar based byte, 

dchar based d**? - « K y t e ; 

do while (count := roui» f - 1) <> 255: 

dchar r schar: 
source - source 1 ; 
des t = des t +• I : 
end ; 
e nd move t 

fill: procedure (dest.char.n) : 

f 1 1 1 locations start! nig at dest with char for n byte«^/ 
dec lare des t address . 
n byte . 

d based de«* by to, 

char byte: 

do while (n:-n-P *> Of i*!i: 

d = char: 
dest = dost + 1 : 

end : 
end fill; 

errorfrasg: procedure^ itiflc' ; 
declare msg address; 
call pr lntichar( ’ ^ ; 

c a 1 1 pr lnt$r har( high' .r » ,» : 
call pr lnt$''hnrl low( ^ t ; 

end errorlmsg; 



• 5 P. 



wnr n 1 ng • proc e d ur e ( wnr nc o d e ) 5 
dec Iftp warncode address : 
call c r 1 f : 

call print!. ’warning 
call error$rasg(warncode) ; 
end warning: 



error* pro ceduref crrcode) : 
declare e nr code addre«f»; 
call c r 1 f : 
error^f lag - true; 
call print! . ’error $ ’ 1 ; 
call errorSriffar! errcode ) ♦ 
end error: 

S'* file processing routiner, for use with cp/m 

initial i se ®d i sk? bu f fer '• procedure : 
call fll lib uffer,eof filler. 1 2V > > ; 
end 1 n i t la 1 ize ®d Is kSbuf f e r : 

buffer tatusi?byte ■ procedure byte : 
re t urn f e h ( *13 ) : 
end bu f f e rSs t a t us? b y te ; 

se t$buf ferSs la tusSbyte ‘procedural status) : 
declare status byte: 
f c b ( 33 ) - s t a t us ; 

end se t$!>uf fer^s tatusSbyte : 

wr l teSiaark’ procedure byte; 

return buf fer$s la tusSbyte : 
end wr i teSmnrk: 

se t Jwr i to5raark-‘ procedure : 

call se l Shu f f e r $s I a t us $b y X » ( bu f f e r $s t a t us $b y t e or 0lh); 
end se tSwr i teSmark; 

c learlwr \ telraark’ procedure ; 

call se t ®baf f erls ta t usSby te ( buf f erSs ta tusSbyte and 0feli> ; 
end c learSwr 1 teSmark; 

active Sbuf fer : procedure byte; 

return s hr ( buf ferSs In tiisSbyte , 1 ) ; 
end actlveSbuffer; 

s ** t. ® b u f ferSinac t ive : procedure ; 

cal 1 se tJbuf ferfs ta tunSbyle^ buf ferSs ta lns?byte and 0 f dli-> ; 
end se t Sbu f f er S i nac t 1 ve : 

se tlbuf ferSac t Ive i procedure ; 

call se t Jbuf fer$s ta tus$byte( buf fer$s ta tu^Jbyle or 02h) ; 
end setSbuf ferine t Ive ; 

se tfrflndoniSniode ’ procedure : 

call se tlbuf ferfs ta t us Sb y t ‘ bnf ferls t a t us 9 by t e or 80 h) ; 
end ae tlrandomlinode ! 

randomlmode •* procedure byte; 

return ro 1 1 buf ferls ta , 1 ) ; 

end random® mode : 

d lakfeo f - procedure : 

If eofaddr - 0 then 

call error! ‘ef’ ) ; 
rc = eofaddr + 1 : 
ra - e o f r a ; 
r b " eofrb: 
goto eofexi t | 
end d 1 s k$eo f ; 



fil ISf 1 leSbuffcr: procedure; 

If dlskread - 0 then 

do ; 

call getSbuf ferSact 1 ve : 
re t ur n ; 
end ; 

If not r anJo rafmode then 
do ; 

call d IskSeo f : 
re turn ; 
end : 

call ini t la 1 lzeSd IskSbuffer ; 
call setSbufferSactive; 
re turns 

end f l 1 ISf 1 leSbuf fer ; 

wr l t eSd Is kS l f S re rj? procedure * 

If wrlteSmark then 
do ; 

If diskwrlte <> 0 then 

ca 1 1 e rror ( * dv' ) : 
call c learJwr l telmar ki 
If randomSmode then 

call se tlbuf f er^lnac t i ve : 
e Ise 

ca l 1 initial lzeSd Isk-Shuf f *r ; 

end ; 

record® pointer = buffer; 
end wr i te td iskS 1 f Sre <j: 

a tSendSd Is k$buf fer •* procedure byte ; 

return ( rocordSpo inter := recordSpo i n t e r + 1) >- buffer^end 

end a tSendSd IskSbuf fer ; 

vnrSb loc kSs Ize : procedure byte; 

return blo^kslze <> ; 

end vnrSh 1 oc ks i ze ; 

s toretrec Sptr : procedure i 

fcbaddt 18 ) = recordJpo inter ; 

end • toreSrecSp tr ; 

wr 1 t e SaSby te : procedure ( c hnr ' : 
declare char byte; 

if varib lockSs Ize and ( by tes wr 1 t ten •’= by teswr i t ten+ l ) 

> b loc ks l ze t lie n 
call error<*er’>; 

If a t $e ndSd 1 s kSbuf f er then 
call wr 1 teSd is kS 1 f Sre q: 

If not ac t Ivpfbuf fer and r a ndo raSmod e tb^n 
do : 

call f i 1 ISf i leSbuf fer; 

fcb(32) = fcb<32) - l; reset record no */ 

end: 

nextdlskchar = char: 
call setS wr i t e S ma r k ; 
end wr 1 tefaihvte : 

ee tSfl leSaddr ? procedure t 
prtSnddr = mask(ra): 
fl lend dr - pr tlentry: 
e o f a d d r ” f c b a d d ( 1 9 ) : 
call po tack: 
end se t S f i ieSnddr : 

se t S f i le'3po Inters t procedure ; 

baf ferie nd - (buffer : - f i 1 end d r + 33 ' **• dls kr e c size; 

terordpo inter ~ fcbndd* 13': 
bloc ks i z e = f e b a d d ( 1 7 > : 
call « e t d ir.n c 
e nd s e t S f i 1 e ? po Inters: 



se tup$f 1 1 e S e :r t « • n t tproced n ;• e ; 



if open 3 255 then 
do : 

If make 3 255 then 
call erro r f 1 me 1 ) : 

e nd ; 

e nd setupSf i 1 e $e xlent ; 

4 igkSope n : procedure ; 

declare ( f i 1 ename , buf f . h 1 k£s ize ) address , 

• (i.j) byte, 

char based buff byte; 
ittcSj : prore«lure byte; 

ret ur n ( j •* = j -5- l ) : 
end lnc$j ; 

prtSaddr = mask(ra); 

ca I 1 pop$s tack; 

b 1 ize = ara; 

ca 1 l popls tack; 

buff 3 mask( ra) ; 

call pop$s tac k: 

buff 3 buff - char; 

f 1 leaddr , pr tSen t ry 3 ra ; 

buffer 3 ra + 0 ; 

call fill ((filename • - ra + 1)*’ ',11): 

if c ha r ( 2 ) = * : ' t he n 

do ; 

bra 3 (ehar(l) and Ofh) - 1: 

i 3 char - 2j 
buff 3 buff 4- 2: 
e nd : 
else 

i = char; 
if i > 12 then 

i 3 12; 

buff 3 buff + 1; 

J = 255; 

d o wh lie ^char( lncSj) O ' . ' ) and (j < B); 

end ; 

call move (buff, file ua me, J>; 

If 1 > IncSj then 

call move ( . c har ( J ) . f 1 1** name + 8 , 1 — j ) ; 
call se tuplfl lelextent ; 
ar a ( 19) 3 «: 

ara( 10) 3 ra + 256; 

arn( IT) 3 blkSslze; 
ra 3 ra + 168; 

end dlskSopen; 

se t$eo f$s tack: procedure ; 
eo f ra 3 ra ; 
eo f rb 3 rb ; 
end setf^oflstack; 

set up$d l i?k® l o : procedure : 
call se tSf i leSaddr ; 
call se tf f 1 lelpo Inters : 
by t eslwr 1 t t e n = 0; 

flrstfleld = true ; 
end se tupld Iskl lo ; 

randora$s*e tup : procedure \ 

declare byte count address, 
record addr^s^ , 
extent byte ; 

if not vnr^hlockSs iz^ then 
call e rro r ( * ru * ) : 
ara 3 ara - 1 ; 

call se tSrnndnmfmod^ ; 
cal l s e t $ b u f f e r $ i na c t 1 : 

call wr i t e 3>d i i f Sro : 
bytecount 3 b locks ize ' r - nrn : 

record pointer 3 (byt* fount n nd Tfh) * buffer 
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call ? torelrecSptr: 
record = 5 hr ( by tecoun t , 7 ) ; 

extent 2 shr( record, T) ; 
if extent < > f c b ( 1 2 ) then 
do ; 

if close 2 235 1 he n 

call error( ’ce ’ ) ; 
f cb( 12 ) - ex ten t ; 

call t upSf 1 le$ex tent : 
e nd ; 

fcb( 32 ) 2 low(record) and Tfh; 

call pop$s tack; 
end randomSse tup ; 

ge tSd IskSc liar : procedure byte; 

If a t . 5 e nd$d i s kSbuf f e r then 
do : 

call wr l te$d l?k$ i f $re ,4; 
cal I f 1 llSfl leSbuffer; 
e nd ; 

If not active ® buffer then 
call f i I 1 * f 1 leSbuffer; 
if ne-ctd Iskchar = eofflll?r then 
call d iskSeo f : 
return nextd iskchar 1 
end ge t?d iskfchar ; 

d IskSc lose * procedure ; 

call se t $f l 1 eSpo inters ; 
call wr i teSd iskS 1 f Sre q; 
prtSaddr = mask(ra) ; 

If close - 253 then 
ca l 1 error ( ’ ce * ) : 
pr tSeut ry 2 ft ; 
end d lak$c lose ; 

c learSprintSbufftprocedure ; 

call f i 1 1 ( ( pr i n t bu f f e r pr intbaf fer loc^ , 
end c learSpr 1 n t Sbuf f ; 

dumpSpr Intfbuff: procedure ; 

declare temp address, 

char based temp byte; 
temp 2 pr intbuf f end ; 
do whl le char 2 * ’ ; 

temp = temp - 1 ; 

e nd ; 

call cr 1 f ; 

do printbuffer 2 pr 1 n t bu f f or loc to temp; 
call pr intchar( pp intpos ) ; 
e nd ; 

call c learSpr Int Sbu f f ; 
end dumpSpr 1 u t Sbuf f ; 

loadSprlnt$buff tprocedure(chnr) ; 
declare rhar byte; 
printpos 2 char; 

\ f ( pr in t buf f er : 2 printbuffer +1) > 

pr i nt bu f Te nd then 
call ditmpSpr 1 n t $h 11 f f ; 
end londSpr 1 nt Sbuf f ; 

output :procedure(des t .ehnr 1 ; 
declare dee t byt^, 
char byte; 

If dost - f’nnso le th^n 

call pr 1 11 tSc har t e har ) : " to consol** */ 

e lse 

call wr i to$?a$hyt^ r c ha r ’ ; ''*• to <1 is k >' / 

**nd out pu t x 



wr l teSdect procedure 1, u 



^ r > ; 



declare scarce address, 
num byte , 
nutnSd ig l tg byte, 
char byte, 

Index byte, 
dest byte, 
coun t byte; 
s t ore ne • procedure ; 

If (switch := not ewl toh> then 
d o : 

char = a hr ( h$by t e , 4 ‘ or '0*; 

If (eount=0) and (cliar = *0') then: 
else 

call on t pu t ( de s t , c ha*- > ; 
end ; 
else 
do ; 

call ou tpu t ( des t . ' hi? by t e and 0fh‘ or f 0‘); 
ho 1 d = ho 1 d -r l : 
e nd ; 

coun t - count + 1 : 

end storp$one: 

ho 1 d = source; 
s i gn = h$by t e ( 1 ) J 
If si cm or 00h then 

call ou t pu t ( de s t , ’); 

else call out pu t( des t , * - * * ; 
count = 0; 

hold = hold - hSbyte; 

nuinSd limits = h$byte * 2; 

hold = hold + 1; 

num = ntiiuSd Igl ts - hSbyte; 

switch - false; 

ho 1 d = hold 4* 1 • 

do Index = 1 to nuraid i a; 1 1 s-*- 1 : 

If count - num then 
do ; 

call oatput(des t , * . ' • ; 
count = 100; 

end ; 
e tse 

call s torefone ; 

end ? 

end wr 1 t c Sdec t 

wrlteSstr: procedure! ho Id. dest'* : 
declare hold address, 

h based hold l>v»e, 
des t byte , 

1 ndex by t e : 
hold = hold - h; 

do Index - 1 to h: 

call output! d A 9 t , In index) ) ; 
end t 

end wr 1 t t r ; 

wr 1 tplint : procedure! va 1 ue , d e s t '» ; 

declare value address, i byte, count byte: 

declare declnt(5) address i u i H a 1 ( 1 0000 . l 00(4 . 1 00 , 10, 1 ) ; 

declare ( f 1 a g , d e s t > byte: 

9 ip - c hec kl 1 n t >9 1 (fii t va 1 u'' ; 

If 9 li^n - negative then 
do t 

value s -value and Obfffh: /'* mask off next to left bit */ 

call out pu t ( des t , ' - * ) : 
e nd ; 

else call out pu t ( d es t . > : 

flag 5 false; 

do l - 0 to 4: 

count ~ 30h; 

do wh lie value > = d ~r i u 1 ■ i > : 
va 1 ue r va \ up - 1 lu - i 1 ) : 
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f 1 ag= true f 
conn t = co unt+ 1 ; 
end ; 

if fin? or (1 > 2 4) then 
cal I o u t pu t ( d es t , c c m t > ; 
else 

call o u t pu t ( d e s t , * ; 

end ; 

end wr l te$ 1 nt : 

wr i teStoSd Iskt procedure! t ypn ) ; 

/'* type 0- \ n t e ge r , t ype I -dec ima 1 , type 2-^trin? */ 
declare type byte; 

1 f t ype - 0 t hen 

call vr i ie8int( ara , 1) ; 

If typ^ r 1 then 

call wrlteldeclara, 1) ; 

if not first tfleld then S'* separate fields with commas */ 
call wr 1 te<a®byte( f , ’ ) ; 
else flrstfield - false; 

If type 2 2 then 
do ; 

call wr i t eS&Sb y t e ( quo t ? ' ; /'* strings put in quotes 'X/ 

call wrl teS»tr(ara, 1) ; 

call wr 1 teSafcby te ( quo add tra i liner quotes %/ 

end ; 

call popSstacfc; 
end wrlteStoSdlsk; 

conca tena te : procedure ; 

declare ( s ize 1 , s ize2, t izf' * byte; 
t e mp 1 = raask( ra) ; 

call po p$s tack; 
if not che^kitemp( arn) then 
do : 

temp2 = mask(ra) ; 
temp2 = temp2 - 1 2 ; 

slze2 2 t2 + It 
call mo ve ( t e rap2 ,ra,s lze2) ; 
end ; 
else 
do ; 

9 Ize2 2 bra ; 
rn - ra - bra; 
end ; 

tempi = tempi - t 1 ; 

9 1 ze 1 = t 1 ; 

call rao ve ( t e mp 1+1 ,ra + s lzc2,s Izel) ; 

tls Ize 2 s Ize I + size2; 

bra = t Ss 1 ze - 1 ; 

ra 2 ra + tls Ize : 

bra 2 t ®s \ ze : 

bra( 1) ? OcOht /* set tf'tnp bits 

end concatenate; 

conver tfc toS In t • procedure ( loc , *ize> address; 

declare dec in t < 3) address initial (1 0000 , i 000 , 1 00 . 10 t 1 ) , 
loc address, 
ho 1 d address , 
li bused hold byte, 
nun address , 

( i , J , s i z e ) byt«»: 

nmn 2 0*, 

J = 3; 

hold 2 loc + size - 1; 

If size * o then 

call ermr( ’ in ' ) ; 
else 
d o ; 

do 1 - 



1 to size; 



num = nun 4 ( h - 30h) * decint(j:-j-l): 

ho Id 2 ho Id - 1 ; 

end ; 

If num <= 1*'383 then 

ret ut*n num; 
e lse 

rail error C * lo ’ ) ; 
end ; 

e nd c o n ve r tStoShit s 

oneSlef t • pror ed ure ; 
declare ctr byte; 
i f & hr (bShytetl),4) = 0 then 
Jo : 

do ctr = 1 to 9; 

bSbyte(ctr) = s?hl( hSl)y te(c tr) ,4) or shr' hSbytef c tr+ 1 ) . 
e nd ; 
e nd ; 

e he noSshlft - true; 
e nd o ne $ 1 ~ f t ; 

oneSr ight ■ procedure ; 
declare ctr byte, 

i nde x byte ; 
ctr - 11; 

do index 2 1 to 10; 
ctr = ctr-li 

bSbyte(ctr) - ghr» b^byte f r tr) , 4) or sill ( bSby te ( c t r— 1 ) T 4.' : 
end ; 

end one Sr i tfht ; 

9 hi f t$r l*ht :proredure( coun t ) ; 
declaret count, ctr) byte; 
do ctr : 1 to coun t ; 

call one Sr iffht ; 
end ; 

end shifter! gilt ; 

shlftSlef t : procedure( count ) ; 
declare count byte; 
no shift - false; 
do ctr = 1 to coun t ; 

call one! left; 

If no shift then 
re l ur n ; 

e nd ; 

e nd shlft*left; 

lead 1 n*$7:eroes : procedure! addr ^ byte; 
declare count byte, 
ctr by te , 
addr address; 
count = 0 1 
base - addr; 
do ctr = 1 to 9; 

If (bSbyte(ctr) and OfOli) <> 9 then 

re turn count ; 
count = c p tin t + 1 ; 

if ( l>Sb y t e ( c t r ) and Ofh) <> 0 then 

re t urn c o un t ; 
coun t = count + 1 ; 

e nd ; 

If base = . r9 then 

do ; 

call error (’dz*); 
b#by t e ( 9 ) = 10h; 

d e c p 1 0 = 1 j 

re t urn 1 0 ; 
end ; 

re t urn coun t ; 
end lead 1 n^Szproeg ; 

r 1 Sprrea te:* : procedure byt**; 






declare ( i.ctr) byte; 
do ctr : 1 to 9; 

If rl(ctr) > (l := ( 9 r 0 f c t r ) ) ) then 

re turn true ; 
if rl(ctr) < i t he n 
re t urn fa Ise ; 

e nd ; 

eSfle* = true ; 
return true ; 
end rl$greater; 

a 1 1 Igpi: procedure ; 

dec larei x, y) byte; 

r lght$op*procedure(addr) ; 
declare addr address*; 
if no 9 h 1 f t then 
do ; 

base 2 addr: 

call shi f t Sr ight ( y x - ctr); 

e nd ; 

end r IghtSo p : 
y = 0 ; 

If decSptO > decSptl then 
do i 

base - . r 1 ; 

call shlftSleft(x := decptO - decptl); 
decptl = decptl + c l r- I ; 
call r lght*op( . rO) ; 
decptO = decpt0 - y; 
e nd ; 
else 
do ; 

base = .rO; 

call slilftSleftCx ! r decptl — decSptO); 
decptO = decptO + ctr-1; 
call r i ght Sop( . r 1 ) ; 
decptl = decptl- y: 
end ; 

end allien; 

add #r 0 : procedure ( seco dd , des t ) ; 

declare (second, dest) address, ( index, cy , a . b, i ) byte 
ho Id = second; 
base = dest; 
c y = 0 ; 
ctr = 10; 

do Index = 1 to 11; 

a = r0( ctr); 
b - hfcbyt e ( ctr); 

1 = d ec ( a + cy); 

cy = carry and i; 

1 = dec ( 1 > b) ; 
cy - (cy or carry) and 1; 
bSby te (ctr) = i ; 
ctr = ctr - 1; 

e nd i 

If c y then 
do : 

ctr r 10: 

do 1 nde x = 1 to 11: 

l = hSbyte(ctr); 

1 - d ec ( 1 + c y ) i 
cy = carry and 1; 
b$by te (ctr) - 1 ; 

ctr = ctr *- 1: 

end : 
e nd : 

end a*ld®rO; 

c o mp 1 i m** n t * procedure ( numb 1 ; 
declare numb byte* 






do case numb ( 
ho Id = . rO ; 

ho 1 d = . r 1 ; 

ho Id = . r 2 ; 

end ; 

if g 1 gnSOC numb) then 9 ignO( numi>^ - negn t ive : 
else 3 i gnSO( numb) 3 pos \ t ; 
do ctr 3 0 to JO: 

h£h>*te(ctr) - 99h - h$b y i e ( c t r ) : 
end ? 

e nd co mp 1 i me n t ; 

r lght $jus t 1 f y • procedure ( numb ) : 
declare ( numb . 1 ) byte? 
do case numb r 



base - 


.rO 


base = 


. r 1 


base 3 


- r2 



e nd : 

1 = 0? 

do wh ile f((it = i + 2) < d^cp f O( numb )) and f b$by*e<. 9)-0)) 
call sh 1 f t Sr i gilt ( 2) : 
end ; 

decptO(numb) 3 dec p t 0< numb ) - f i-2) ; 

end r ight* jus t i f y : 

se tSmul tSd i v: procedure ; 
no shift 3 false? 

If (signO and s l gn 1 ) or 

(not d lgn0 and not ■? i gn 1 > then 
s ign2 = positive; 
else siarn2 3 negative; 
call fill ( . r2 t 0 , 10) ; 
end se tSmn 1 t$d i v; 

addlser ies : procedure ( count > : 
declare (i. count) byp; 
do I s 1 to co un t ? 

cal I add SrO( .r2, . r2> : 
end ; 

end addSser ies ? 

mu 1 t iplyi procednre( va lue) ; 
declare value byte: 

If value < > 0 then 
do : 

If no shift then 

call error('ov’); 
call addfcser les ( va 1 lie * : 
end ; 

base 2 . r0 : 

call one* le f t : 
end multiply; 

d Ivlde : procedure ; 

declare ( i » J * k, x, lz0. lz P byte : 
call 9e t$raul tfd lvj 
sif lag 2 true ; 
e*f lag 3 false? 

If ( 1 7.9 • - lead inglzpi’oos^ . rO' ) < > 

( lz I : = lead i nglzoro^s ( . r t * » t hen 
do ; 

i f IzO > lz 1 t lien 
do ? 

base = . rO ? 

coll shlft*left( i : - l-P- lz 1 ) : 
d e c p 1 0 3 d e c p 1 0 -** i: 

X = 1 z 1 ; 

end ; 
e Ise 
d o ; 

base - . r l : 

call s h ! f 1 9 1 a f f ( t : - 1 t - 1 z 0 ) s 



decSptl = decptl + i; 
x = lz0; 

^ nd : 
end ; 

else x - 1 z 1 : 

d e c p 1 2 s 19 - x decptl - decptO; 
call co mp 1 1 me n t ( 0 ) ; 
do 1 - x to 19 i 
j = 0; 

do while rlfgreater and sSflag; 
call addSrtH . rl , .r 1 1 : 

' J - J + 1; 

If eSflag = true then sSflag = false 
end ; 

k s & hr ( 1 ♦ 1 ) ; 
if 1 t he n 

r2( k) = r2( k) or j ; 
else r2( k) r r2( k) or shlfj f 4): 
base - . r0 ; 

call one Sr 1 gli t ; 
end ; 

e nd divide; 

c heckSresul t : procedure : 
if r 2 = 99h then 
do : 

call comp 1 Iment ( 2) ; 
slgn2 - sign2 xor t; 
end ; 
e lse 
do ; 

if r2 < > 0 then 

call error(’ov’); 

If not sSflag then 
s i a:ti 2 - pos 1 t 1 ve s 

e ad : 

end c hec kSresu 1 t ; 

checkts Igniprocedure j 
si f 1 ag= f a lse t 
if slgnO and slgnl then 
do t 

n 1 gn2 = po s 1 t 1 ve ; 
return; 
end ; 

s 1 gn2 - negat ivei 

If not slgnO and not signl then 
do : 

sS f lag= true ; 
re turn ; 
e nd t 

If si gn0 t he n call c o mp 1 1 me n t < 1 ) : 
else call comp 1 i men t ( 0) ; 
end checkSslgn; 

add i procedure ; 

call checkls ign; 
call add$r0( . r 1 , . r2) ; 
call checklres u l t ; 
decpt2 - decptO; 
end add ; 

cpySreg2Sons tack: procedure : 
declare count byte, 

I ' byte; 

call r IghtSjus t i f y( 2) ; 

call po pS* tack; 
count = 0 ; 
base = . r 2 ; 

l - 10 - f deep 1 2+ n /2: 

do while (bSbyte = 0) and feinint < i>: 

base = base + 1 : 
count = counts 1 : 






end ; 

ra - rb + 2 ; 

bra(0) 3 (count : 3 10 - cou’U) ; 

bra(l) 3 dec$pt2: 
call base, ra+2 , count'; 

bra(coant+2) 3 count +2; 

brd (coant+3) = sign2 or OoOh: set sign and 

ra 3 ra + count + 2: 
end cpy#reg2$o ns t ac k; 

lo ad •reg‘* procedure ( source . reg*nnm> ; 
declare source address, 
reglnum byte, 
co un t by te : 
ho Id 3 source t 

If iio t c hec k$ temp( hSaddr ) then 
hold 3 mask(hold); 
s 1 gn0( regl nun) 3 Mbyte(l); 
hold 3 hold - h$byte; 

count 3 hSbyte; 
do case reg£nurn; 
base 3 .r0; 

base 3 . r 1 ; 

base 3 . r2 ; 

end ? 

call f 1 1 1 ( base f 0 . 1 1 ) ; 
ho Id 3 ho Id > 1 ; 

dec$pt0( reg$nnni) 3 hSbyte : 
hold 3 hold + l; 

call roo ve ( ho td , base* 10-coun t , count ) ; 
end load^reg; 

se tfcupfcregs • procedure : 
no shift 3 false; 
call loadSreg( ra , 0) ; 
call load$re£( rb , 1 ) : 
call r IghtSjus t 1 f y( 0) ; 
call r ightSj us t I f y( 1 ) : 
end se t£up$re gs ; 

s tepl Inslcnt *. procedure( nun) ; 

declare nun byte: 
re 3 rc + num: 
end 9 tepllnfllcnt j 



branchSabso lute : procedure : 
call a t e pf 1 ns ten t ( 1 ) ; 
rc 3 twobyteoprand - 1; 

end branrhlabso lute i 



g^tfcodeladdr iprocedure(of f«e t 1 address; 
declare offset address: 
return codebase + offset: 
end ge tlcodeladdr ; 

ge t$pr ttaddr : procedure (offset.* address: 
declare offset address; 
return prfb^se 4* offset; 
end ge tlpr tSad-lp ; 

load : procedure ( :id dr ) ; 

declare ad dr address. 

a based addr addro**^ : 
prtSaddr 3 mask(addr^: 
a - pr t$* n try; 
e nd load: 

s toreidec * procedure ( source . d ^ ; > : 

d e c 1 a r° ( source, dest , d e t j vrn ) address. 

( a m f $s t o , a va 1 1 t o . - ) *r '"b y t e s i byte, 
s ba^ed sourr° add r . 



temp bits >v 



? ^ 



d based de? t address, 
deep I byte, 

sign based destSsiarn byte; 
if chec k£ te mp< S ) then 
temp 1 = urce ; 
else tempi 2 mas k( so urce > : 
temp2 2 mas k( deS t > ; 
aval 14s to 2 t2 — 2; 
destisign 2 terap2+l? 

t2(l) 2 tl(l> and 01h; /'‘Ktrnsk off temp bits *✓' 

source 2 ( temp I J - temp 1- t 1 ) ; 

des t 2 te mp2- t 2 ; 

amtSs to 2 t 1 ; 

deept = tlC 1 ) ; 

sigSbytes 2 ((. amtSsto * 2 - deept) + 1) / 2 

If amt 4s to < 2 aval ISsto then 
do ; 

call f 2 1 It des t 9 OOh, t2 ’ ; 
call mo ve(source,dest, t 1+2) ; 
end ; 

else If a igibytes < 2 availSsto then 
do ; 

call move ( source .des t , t2) i 
t e mp2 2 des t : 

1 2 - a va i 1 is to ; 

1 2 ( 1 ) 2 (ava l 1$-? to - sig$bytes> * 2; 

if deept then 

1 2 ( 1 ) 2 t 2( 1 • + 1 ; 

call warnlngi ’ i 1 ' ) ; 
end ; 

e Ise 
do ; 

ho 1 d 2 d e s t ; 
hSaddr 2 0101h; 
h«byte<2) 2 10h; 

s 1 gn 2 pos i t i ve | 
call errorC’sl*); 
end ; 

end s t o re Sdec ; 



storetinMprocedure(dest , value) ; 
declare ( des t, value) address; 
pr tSaddr 2 mask( des t ) ? 
pr tie n try 2 va 1 ue ? 
end s torel Int ; 



store fs tr:procedure(source,de^t » ; 
declare ( d es t , so urce ) address, 
s based source address, 
d based des t address; 

If checkltemp(s) then 
t e mp 1 2 source? 
else tempi 2 mask( source ) : 
temp2 2 mask(dest); 
des t 2 t emp2 - t2 ; 
source 2 tempi - tl? 
if t 1 <= t2 then 
do ; 



call f i ll(dest,20h, t2> : 
c a t 1 mo vo ( s o or c e . d e s t , t l > ; 
end : 
e Ise 
do ? 

cal 1 movp( source, des t . t 2 * : 
call warn! ng( ’ so * ) ; 
end ; 

end s tore 4s tr *. 



a I locate** tr : procedure ; 

If bra 2 0 then 
do ; 

call «rr jr( * az ' > ; 
bro 2 10? 
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end j 

call pushes tnc k( bra •* = bra 4 - 1 ) : 
bra - brb; 
end allocate Sstr; 

a 1 loc^a teSdec • procedure : 
declare store byte; 

If bra 3 0 then 
do ; 

call ^rror( 'az' ) ; 
bra 3 '> t 
end; 

c tr - bra j 

store 3 ( bra+ 1 ) /'2+2 ; 

call pus hSs tac k( s tore ) ; 
bra = store; 
ara 3 ara or 0100h; 
end a l loca teSdec ; 

se tSupfca 1 loc *• procedure ; 
prtSnddr = mask(ra): 
call po p$s tack; 
end se tlupSa 1 loc ; 

f IndSrb^procedure ; 

If checks temp (ara) then 
r b = ra - ( bra + 2) ; 
e 1 se rb = ra — 2 ; 
e nd f l nd® r b ; 

gavfpcb * procedure ; 

if move Sent 3 6 then 
re t urn ; 

ca 1 1 pushes tack( 2) i 
call mo ve ( pc bp tr , r a , mo veScn t ) ; 
pcbSva 1 ue ( 1) = ra ; 

ra - ra + moveScnt; 
ara 3 movement; 
end savfpcb; 

UMave:procednrei 

call move ( tempi t -ra— ara - t ho Id v ara) ; 
ra 3 temp t i 
e nd unsavp : 

ca Lclrow; procedure i 

declare ( Index, nun, v,a$g Ize . type) byte, 

( numlarrays , num$d i ra, □ 1 loc® len, count , i ) by te , 
d (10) byte; 

type - brn : /**■ 1 - 1 n t , 2-dec , 3-s t r */ 
call popSs tack; 
numSarrays - bra; 
call po pSs tack; 
mimSdlm 3 bra; 
coll po p$* tack; 
v = 0; 

nfs Ize 3 1 ; 

d ( nureSd im) = 1 j 

If numSdlci 3 1 then 

do i 

aS^izn 3 bra - brb + 1: 

v = br b t 
call popSs tack; 
call popSstack; 
e nd ; 
e 1 »e 

do Index - 1 to numSdim: 

i - nUKiSdlm - Index: 

aisize r assize * (uiiw • = bra - brb + 1 ) j 

d ( i > 3 num * d ( i * I > ; 

v = V * brb * d( i+1): 
c a 1 1 po pSs tack; 
call pop?** tnc k: 



end t 

I f type = in t then 

call pushSs taek( 2' : 

else 

a 1 loci ten - hra; 
do count = 1 to numJarrays; 

call a t e p$ 1 nsic n t ( 1 t : 
bra ± c ( 1) ; 
bra(l) z c and 3fli; 
prtSaddr = ara + prtSbas**: 

pr tientry = i*a or 4<*00h; /'* set addr bits 

bra - uumid 1 m : 

If nutnld i n] O 1 then 
do Index' = 1 to nurald im -1; 

i = nuniSd irn — index: 
ra - ra + 1 ; 

bra = d ( l ) \ 
end ; 

ra - ra + 1 ; 

bra - v ; 
ra = ra + 1 ; 

bra = a 1 loctlen; 

If type = litt then 
do ; 

bra = 2; 
ra - ra + 1 : 

ho 1 d = r a : 

ra = ra + afp Ize * 2; 
hSaddr - ra: 
end ; 
else 

If type - dec 1 then 
do j 

bra - (bra+l)/2 + 4; 
ra - (ho Id : = ra + 1 ) + 2; 

bra = a 1 locilen: 
do index = 1 to assize; 

call al loca t^idec : 
call pushes tack( 2) ; 

bra - ctr; reset to allocated length */ 

end * 

call poplstack; 
h$addr = ra ; 
end : 

e lse 

If type = str then 
do ; 

bra = bra + 3: 
ra = (hold •' = ra ■+■ i) +2; 
bra - a 1 locilen, 
do Index = 1 to aSsize: 

call al loca teJw tr : 
call pits his tacM 2) ; 
ara 2 a r b : 
e nd ; 

call popis tack: 
hiaddr = ra : 
end t 

call e» tepl insf^ntC 1 ) : 
e nd j o un t */ 

end ca IcSrow; 

c a IcSsub ’ procedure t 

declare arrayfaddr addr^p-^ . 

location addre^??. 

a#byte based arrny'^addr byte, 

aSaddr based arrny^ niHr address. 

( 1 . n itm$d 1 in) b y f e . 
offset add r « s « : 
arrayinddr = mnsM rn) : 
call p<> tack.; 
offset - ara; 
numSdim - n$hyto : 
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do 1 = 2 to nmnSdlro; 
call popSs tack: 

arrflySfld'tr ” arraySaddr * 1 .* 

offset - ara * afcbyte + offset: 
end ; 

arraySaddr = arraySaddr + 1 : 

offset = (offset - aSbyte + \ > * aSbyte(l); 

arraySaddr = arraySaddr + - : 

If ( loc a t i on •* = arra ySadd r + o f f so t > > aSaddr then 

call errorC* ab ’ ) ; 
ara = location or 4O0Oh: 
end ca lc#?ub; 

decremen t&b Ik: procedure ( num) : 
dec 1 are num byte ; 

ra = b 1 k( ( b 1 kS 1 eve 1 := b 1 kS l e ve 1 -num) + 1) ; 
call f IndSrb ; 
end dec re me n t Sb 1 k : 

addS Int : procedure ( lntl, lnt2) address: 
declare (lntl,lnt2) address 
return inti + lnt2; 
e nd a d d S l n t ; 

sub Sint *. procedure( Int 1 , In t2 1 address : 
dec laro ( int 1 , int2) addros ; 
return inti - lnt2: 
end subS In t j 

mu 1 S i n t * procedure ( Int 1 , Int2) address : 
dec l are < int 1 t lnt2) address: 
return Inti * Int2; 
e nd mu 1 $ i n t : 

d 1 vS i n t : procedure ( lntl. Int2> a*Uress : 
declare (lntl,lnt2) address; 
return lntl 7 Int2; 
e nd d 1 vS Int; 



exl tSlnterp: procedure ; 
call c r 1 f ; 
call rao n3 : 
end exl tSinte rp; 

conso leSread • procedure ; 
call c r l f ; 

call pr tntchar( ) j 
<^a l 1 pr lntchar( ' > ’ ) j 
call pr lntchar( ’ *); 

cal 1 read( . Inputbuffer) : 

If buffSspace( i) = coatz then 
call ex i t S In terp ; 
nuralrend - buffSspnce; 
conbuffptr s >buffSspace; 
buf f Sspace ( buf fSspace+ 1 ) = eolchar: 
end conso leSread t 

mo reSconS i nput : procedure byte; 

return conbuffptr < . hu f ;»ace ( nuraSread) j 

end moreSconS Input ; 

conso leilnputlerror-' procedure *. 

rc = rereadaddri /* reset program counter 
call warn i ng (Ml’); 

g oto erporSexl t ; return to outer level */ 

e nd con»o If'Unputterror; 

ge tSconSc liar : procedure byte; 

conbuffptr = conbuffptr - 1: 

return ^onSchnr; 
end ge t Sc on Sc liar i 



next S Inpu t Schar •* procedure by t e ; 

if Input =• 0 then /?' r^nd from disk ^ r 

/■* do forever: 

If ( bu Ff pace ( 1 npu t i ndexJ := ^etdiskchnr) 
do ; 

if var35b lock? ia? Hien 
call error ( * re ’ ) j 

end : 
e 1 se 

re turn nextld iskSchnr ; 
e nd *s : 

if inputStype 2 1 then •'* input f rpm console %/ 

re turn g*> t $co n®c hnr : 
end uex t$ l nputSc har ; 

£e t$ f le Id • procedure i 
declare hold byte, 
de 1 i in byte : 
f le Id# 1 enjn: til 2 0; 

do while (hold t= next! lnpnf?char) 2 * f i 

e nd ; 

If Input type = 0 then 

Inputptr 2 ♦buffSspace; 
if Input type 2 1 then 

Inputptr 2 conbuffptr; 

If ho Id < > quo t e t he n 
de l Ira 2 ’ ’ ; 

e lse 
do ; 

d e 1 1 m 2 quo t e ; 
hold = nextSinputJchnr : 
e nd ; 

do while (hold <> dellm) and (hold <> eo l^har) ; 
f ie IdS leng-t h = f le Id $ length + 1: 
hold 2 nextSlnputSchar ; 
e nd ; 

end gre t ® f i o 1 <1 { 

a^etSintSf ie ld^proced ur e : 
declare 9 Ign byte; 
call g^tSfield; 

If InputSchar 2 then 

do ; 

s 1 %n 2 1 ; 

Inputptr 2 Inputptr + 1; 

f i e 1 dS 1 e ng t h = f i ^ 1 d£ I e ncr t h - 1; 

e nd : 
else 

if InpittSchnr - ’ + * then 

do : 

s i £n - 0 ; 

Inputptr = Inputptr + 1; 

f I e ld$ 1 en$ t h 2 f 1 e 1 d S 1 ^ ugrt h - 1? 

end ; 
e lse 

9 l g*rt 2 0 ; 

call pushes t ack( 2) ; 

a r a 2 c o n ve rtStoSlnt( inpntp ir . fie 1 d $ 1 e n« t h ) ; 

If errorSflng’ then 

call conso 1 el 1 npu t$e rro r : 

If sign t he n 

lira 2 -ara and Obfffht sp f ueg bit and conv 

end ge tSlntSf 1 e Id; 

ige tfs trSf ie Id : procedure ; 
call go t S f t e 1 <1 : 
conlchnr 2 f le 1 dS 1 e ng t h+ ! ; 

InputSptr 2 conbuffptr - oo^Srhor • 
inputSchar 2 f le IdS l^ri*r ♦ h ; 
call pus hSs t ack( 2) ; 
ara 2 conbuffptr or 4O0Oh ; 
end ge t t r $ f i e 1 d ; 



If t he n 



to neg in* 



i j'\ 



ge tldecSf le Id •* procedure : 
call ge t*f le Id i 
call pus h*s t ac k( 2 ) ; 

conlchar 3 0; /* set binary 0 as end of d*c 

If lnputfchar 3 *+’ then 

do : 

sign- 1 ; 

lnputptr = lnputptr + I: 
e nd : 
else 

if lnputSchar 3 then 

do ; 

s i gn 3 0 ; 

lnputptr - lnputptr + 1: 

end : 

e l£e 

sign 3 It 

call pac k3deo Irca 1 ( 1 npu t p t r . ra ) ; 

If errorlf lag: then 

call oonso leS lnputlerror: 
ra 3 p ► r$ t wo - 1 ; 

bra( 1) = sign or 0c0h: t sign and temp bits */ 

end ge t$d^cf f lo Id ; 

lnl t lal Izelesecutei procedure : 
s tacktor*=30150h; 
mcd , rc = cndebase; 
mpr 3 pr t base t 
st, sb 3 stackbase; 
ra 3 (rb : 3 sb) + 2 t 
bldSflag = false; 
end lnl t la 1 lzeJexecute; 

Aset up machine*/ 

call pr i n t ( . * a 1 go 1 -tn lnterpre ier-v?rs 1.08’); 
call cr l f ; 
call open$lnt8f 1 le i 
b IdS f lag 3 true ; 

call lncbuf ; call lncbuf; /* skip codesize 

prtbase 3 .memory; 

codebase - ge tparra + pr these; 

codeptr=codebase; 

/*load machine*/ 

do while nextfchar <> 7fh: 

If cur char > = 128 then 

do ; 

call 9 tofcharf Inc ; 
call lncbuf; 
call stolcharilnc ; 
end ; 
e Ise 

if cur char - s tr then 
do t 

call s totcbarl Inc i 
t e mp 1 3 codeptr : 

char 3 0 ; /* set Initial length to zero */' 

call stoiohar# Inc ; 
do while ftexlSchar < N o : 
call s tolc harf Inc ; 
t 1 3 t 1+ l ; 

end ; 

char 3 t 1 + 1 ; 
call s t o 8c liar* t nc ; 

char - 0: /*mu9 t make str lenght an a l dr quantity 

call a t olehnr* \ nc ; 
e nd ; 

e Ise 

If cure bar - int then 
do; 

call s tofr’harSlnc ; 



ho Id 3 buff + 1: 

f ie ldC length 5 0 ; 
do while nextfchar <> 0: 

f ie Id C lengt h - f l e Id"? t e nc t h + !; 

end j 

d = conve r t $ to C 1 n ( 1 ho I d . f i e l d £ 1 e ncr t h> : 
codeptr 3 codeptr + 2: 
end ; 



e lse 

if curchar 3 dec! then 
do ; 

call s toJcharllnc i 
call lilcbuf ; 

call packSdec ima I ( buf f . oodep t r) ; 
codeptr 3 ptrSlwo + i: 
buff - ptrlone + 2: 

end ; 
else 
do ; 

call s toCclxar® inc : 

if (curchar = brs) or (currhnr 3 bsc > then 
do ; 

call t $ t wo C b y t e •* : 

a = a + code base : 
call incloodeph'Stwo : 
end ; 

e lse 

if (curchar = 1ml) or (curchar = dcb J then 
do ; 

rail incbuf ; 
call s tolchar* Inc : 
end ; 

e lse 

If curchar 3 1 m2 then 

do : 

ca 1 1 i nc bu f : 
call 9 toCcharC Inc : 
call Incbuf; 
call s toScharS Inc ; 
end ; 
end ; 

end ; 

gtackbase = codeptr; 

start of interp */ 

execut e : proced ure ; 
do forever; 

If rol(c,l) then /* must ho lit or llt-lod */ 
do ; 

call pushCs tack( 2* : 

bra 3 c ( 1 1 : lond In reverse order */ 

bra( 1) - c and 3 Pi; /* mask b i f s 10 */ 
ara 3 ( ara + prt#l>af»« ) or 400Oh. /* set 0 1 addr bi 
if r0l(c,2) then call load(ra): 
call tlepflnsScnt' I ' : 
e nd ; 

e lse 
do case c ; 

/* 0 case 0 no t used*/ 

i 

/* 1 str */ 
do ; 

ca 1 l pushfs taok' 2) ; 
call 9 t e pfi 1 ns Co it t ( i > : 
rc 3 r*c + c + 1 ; 

ara 3 rc or 40OOh; 
call e tepC l ns Co n t ( \ • ; 
end ; 



/* 2 Int */ 
da : 

call ptishls tackl 2) ; 
call «* tep® insfcn t ( l > : 
ara = two$byt<?Snprami ; 
call s t e pS i ns$c n t * i * ; 
end t 

/* 3 xch */ 
do; 

hold = ara: 
arc - arb; 
arh - ho 1 d ; 

-nd: 



/* 4 lod */ 

call load ( r« ) : 

/* 5 deb •*/ 
do : 

call 9tepSlns$cnt f 1* 
call dec re men t $b 1 ki c 
e ltd ; 

/* 6 drop */ 

call cr 1 f ; 

/* 7 xi t 

rp t urn ; 

/* 8 aid */ 
do : 

call ae t$upla 1 loc : 
call a 1 loca tefdec ; 
pr tf e n I ry= ra or 400^h; 
end t 

/* 9 a is */ 
do ; 

call se tSupfa 1 loc ; 
call a 1 loca tels tr ; 
prtSentry-ra or 400Oh; 
end ; 

/*10 aid */ 
do : 

call se t S upfta I 1 oc ; 
call al locateJdec : 
prt$entry s ra or 400*)h: 
call pushSs tac k( 2) ; 
bra - c t r ; 
e ad ; 

/*li a Is */ 
do \ 

call se tf upSa 1 loc ; 
e»ll allocate ♦sir,* 
prt$eutry=ra or 4000h : 
call pnshfs tack/ 2) ; 
ara - arbt 
end ; 

12 ad 1 %/ 

do : 

call setSupfneg-; 
arb - fldd$lnt( arb.nrn) 
call c hec k$ n^ pr ; 
call po p<* tnck; 
end : 



/*13 add */ 

d o : 



call se ttuplre^g : S'* puts values of top two 1 ter.s * v - 

, in reg*-) and regl respectively^ 

call allien: 
call add; 

call cpySreg2So ns t ao k ; 
e nd ; 

/* 14 a b i */ 

do { 

call ?e tSupSne a: ; 
arb = sub® 1 n t ( a r b . nr a t ; 
call checkSneg; 
call pop®s tack.; 
end ; 

/* 15 sbd */ 
do ; 

call setlupfrpg?; puts values of top two items *. 

/ * in regO and regl respectively- 1 

ca 11 a 1 1 ign; 

call co mp l I me n t ( 0> ; 

If 9 IgnO then s IgnO - negative; 
else s ignO = posit* %r * ; 
call add ; 

call cpy>reg2$ons tack.: 
e nd : 



/*16 rap I 

do ; 

call »e tSupIneg; 

arb - ran l® 1 n t ( ar b , aro ) : 

• 'all checklneg; 
f'a 1 1 popSs tac k; 
e nd : 

/* 17 mod */ 
do : 

call se tSupSregr^ ; S'* puts values of top two items 

S'* in regO and regi respec t i ve 1 y* y 
declare ( 1 f 1 nde x) byte; 
call se t Smu 1 t Sd l v; 
deep ft 2 5 decptO + de»*ptl; 

1 = 10; 

■i o i nd ex- 1 to 10; 

call mu ltlply(rH i * 2 1 — 1 ) and Of h) ; 
call rau 1 t 1 p i y( shr f r 1 ( i) ,4)) ; 
e nd ; 

call c pySregr2So ns tack.; 
e nd i 

/*18 dvi */ 

do ; 

call setSupSneg; 
arb - d l vl Int ( arb , nr a > ; 
call checkfneg; 
call popt§ tack; 
e nd ; 

/% 10 dvd */ 
do ; 

call 9<» tfuplregs ; S * puts values of top two Items 

Sr, in regO and reerl respectively'' 

call- divide; 
call c pySre g2So ns t nc k; 
e nd : 

/*20 *s 

/* not \ised xs 



/* 21 */ 
s * not used t./ 
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/*22 ne$ 
do ; 

If checkSlnt(ara) then 

ara = -ara and Obf^fh: 
else If checks t e mp( ara • then 

ara = ara xor /^chang-e g iffn b i t*/ 

e Ise 

do \ 

ho Id = mas k( ra > : 
hSaddr = hSaddr xor OlOOh, 
e ud ; 

end ; 

/*23 c 1 1 */ 

/* not Implemented 



/*24 c!2 */ 

/* not Implemented */ 



/*25 dec! */ 
do ; 

call pns hSe t ac k( 2) : 
call s tepS insSc n t ( 1 ) : 
rc - rc + c 2; 
ara = rc or 40O0h; 
call st e P «i nslcat( 1 ) ; 
e nd ; 

/*26 pop */ 

ca 1 1 popSs tack; 

/*27 lml */ 
do ( 

ca 1 1 pnshSs tack( 2) : 
call 9 tep® InsScnt ( 1 ) ; 
ara = c ; 
end ; 

/*28 1 m2 */ 

do : 

call pushls t ack( 2) ; 
call s t e p$ lnsicnt( 1 ) : 

!>ra = c( 1 ) ; load in reverse 

bra ( 1 ) - c ; 

call s tep® 1 ns Sent ( 1 ) ; 
end ; 



/*29 


*/ 




no t used 
; 


*/ 


/*30 






no t used 
1 


*/ 


/*31 


cat */ 






call 


co nca t ena te : 


'*32 


bll */ 






b 1 k < b 1 kS \ o ve 1 - - b 1 kS 1 e 1 -*• 1 ) 


/*33 


bid *S 






cal 1 


d e c re me n t Sb 1 k( 11 ; 


/*34 


brs */ 






ca J 1 


bra nc hSabso lute ; 


/*35 


bsc 





i f brn ~ 0 t n 

a J l brnnrhSnb«f» lute; 



IT" 



• * e lae j *' 

do-j - 

call » tepS lnsScn t ( 2> : 
call popfcstack; 
end ; 

7*36 149^/ • ; 

do x 

if brb < bra then 
brb 2 1 y 
else brb=0; 
call popfis tack; 

’• i end ; ; ■ 

7*37 dlss *7 
/* not Implemented *7 
;• 

/*38 9 I 99 */• 

/X not Imp le men ted *7 
t 

7*39 gtr x/ 
do ; 

If brb > bra then 
br b= I ; 
e lse brb 2 0? 
ca 1 1 pop®a tack; 
end i 

/*40 dgftr X/ 

/X not implemented X/ 

x 

7*41 sgrtr X/ 

/x not implemented x/ 

/*42 eql x/ 
do ; 

if brb = bra then 
br b= 1 ; 
e lae brb 2 0j 
call popSstackr 
e fid ; 

7*43 deql X/ 

/X not implemented X/ 

f 

7*44 seql x/ 

/X not implemented X/ 



7*45 ne$ *7 
do t 

If brb. O bra then 
brb a 1 ; 
e lae brb 2 0 ; 
call* popts tack; 
end \ 

7*46 dttear x/ 

/X not Implemented X/ 

X 

7*47 d He ar *7 

/X not Implemented x/ 

4 

7*48 *eq *7 

do ; 

if brb >= bra then 

brb 3 1 \ 

r< e 1 a e brb 2 0 t 
ca 1 1 popf s tack: 
end j 

/*49 d$eq *7 . 

/X not Implemented X/ 
t 

7*50 sffeq */ 

7 1 * not Implemented *7 
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/*5l‘ Icq Xs 
do f 

; if brb < r bra then 
brb - 1 * 

else hr b a 0 ; 
call popfcstack: 

, end \ 

/*52 d lerj 

/x not implemented X/ 

\ . • l 

/*33 aleq X/ 

/X no t Implemented X/ 

; 

/*34 Ino t */ 
do ; 

if trrt = 0 then 
v ; bra = 1 : 

e Ue bra = 0; 
end ; 

/*55 duo t x/ 

/X tfo t implemented XS 
? 

gnot XS 

/x not Implemented x/ 

% 

/*57 land */ 
do ; 

if <bra-0) or Cbrb=0) then 
brb= 1 ; 
else br b = 0 ; 
call popSg tack; 
end $ 

/*38 dand XS 

/X not implemented XS 

/*59 sand XS 

/x not Implemented XS 

/*60 lor XS 
do ? 

If (bra=0) and (brb=0) then 
brb a 1 ; 
else b r b * 0 j 
call popSg tack; 
e nd ; 

/xfy i dor xs 
/X not Implemented XS 
; 

/*62 sor XS 
/x not Implemented XS 
\ 

/*63 vie */ 
do ; 

call vrrltetint(ara,0): 
call po p*s tack; 
end ; 

/*64 wd c xs 
do t 

if chec k£ t etnp( ora ) then 
call wr 1 tefcdec ( r a . 0) ; 
else 

call wi te#d«c( mapk( rn) ,0) ? 
ca 1 1 popfs tack; 
end \ 

sx65 wsc xs 
do ; 

If check! hpb) then 

call wr i tels tr( ra ,0) ; 
else- 

call wr 1 tefs tr( mask.*' ra) , 0) 
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ca 1 1 popSs tack; 
e nd ; 

/*66 wid fc/* 

call wr 1 te# 1 6#d l®k( 0) ; 

/*67 vMd */ 

call >rr i teStoSd lsk( 1 ) ; 

/*60 wad 

Call vrr 1 tef t o&d lsk( 2) ; 

S*69 sbr */ 
do ; 

arb = ara - arb; 
call pop$® tack; 
end ; 

/*70 bra */ 
do ; 

rc = codelbase + ara; 
call pop$s tack; 
end t 

/*7l row */ 

call ca 1 c$ro w; 

/*72 ®ttb */ 

call ca lcS® ub t 

/*73 rc 1 */ 

call get$lnt*fteld; 

/*74l red */ 

call ge t SdecS f 1 e 1 d ; 

/*75 rc® */ 

call ge trSf le Id ; 

/*76 rdt 

do ; 

1 nput type = 0 ; 
call ge t® IntSf le Id : 
end ; 

/*77 rdd */ 
do ; 

inpat type = 0 t 
call ge tSdecf f le Id ; 
end ; 

/*78 rds */ 
do ; 

Input type - 0; 
call get$«tr$fleld; 
end; 

/*79 ren */ 
do ; 

l nput type 2 1 ; 

' * rereadaddr =■ rc ; 

call cohso lelre«dt 
e nd ; 

/*80 ecr */ 

If morelconllnput then 

call donflo letinpnH^rror 

/*81 sli */ 
do ; 

call jtorellnM rb.aro) ; 
rb - rb - 2: 
e nd : 



1C>2 



/*82 3d l */ 
do i 

call s toreldecCra , rb> 
pb i rb - 2; 



e nd i 




/*83 33 i 

do i 
cal 1 
r b = 
end ; 


s torels tr( ra > rb) ; 
rb - 21 


/*84 9 id */ 
do ; 
call 
ca l 1 
call 
end x 


s torel In t ( rb , ara ) ; 
popls tack; 
po p$s tack; 


/*85 add */ 
do ; 
call 
ca 1 1 
ca 1 1 
end ; 


9tore®dec(ra,rbJ ; 
pop$s tack; 
po p$s tack: 


/*86 asd */ 
do \ 
ca 1 \ 
cal 1 
call 
end : 


9torel«tr( ra,rb) ; 
po pSs tack; 
pop#s tack: 


/*87 opn */ 

ca 1 l 


d Iskfopen; 


/*88 c Is */ 
do ; 

ca 1 1 
call 
ca L 1 
and j 


se t $ f 1 leSaddr j 
d Iskfc lose : 
popSstack; 



/*69 rdb 

ready sequential block. */ 
do \ 



call 
ca 1 1 
end : 


se t upid IskS lo : 
se tleo f *s tack: 


/*90 rdf */ 





/* ready randotn block */ 
do | 



call 


se tnptd lakt lo t 


call 
call 
end ; 


rdndomlie tnp: 
ftetfeoflstack; 


/*9 1 edrV 





/% end of record for read */ 

/% advances to next line feed */ 
do t 

If varfblockJ9 i 2 e then 



do 


while ge t Sd 1 s kSc liar <> If; 
** nd ; 


j call 

end ; 


s toretrec$p tr ; 


edw '&/ 





/* end of record for write 
do i 

If vartb lockSs lz^ t ho n 

\m 



do Vhi le bytes^wr i tten < C b locks Ize — 2); 
c f% 1 1 vr i teSaSby te C ’); 
end ; 

call wrlte$a$byte(cr>: 
call >u* 1 ieSaSby te ( !f) : 

Cali- s toreSrecIpIr; 
and ? 

/X93 pro T/ 

f do; ' ; 

g tacKtop - gtacktap - 2 ; 
ret$addr = rc ; 

„ rc = ara + codebase, 
ca 1 1 poplg tack; 
end; 

/*94 9&r */ 

do ? 

declare ( i , num) byte ; 
pcbptr 2 magk( ra) ; 
call poplg tack; 
movement = ara; 
call popSs tack: 

If ara < > 0 t he n 
do ; 

ho Id = rat 

counter “ 2 * ara + 1; 

do i 5 1 to counts r ; 

call po p$s ta* 1 k: 

end : 

num = ho Id - ra : 

if (temp! : = s tacktop - num) <- ra then 
call error ( ’ mo ’ 1 ; 
call mo ve < ra + 2 , te nip 1 , num) : 
call f 1 1 1( templ-2.*0h,2> ; 
end : 
e Ise 

call po p#s tack: 
b 1 k( b l k 1 e ve 1 : = b 1 k 1 e vp 1 + 1 ) = r a ; 

If pcbSva lue < 1 ) 3 O then 

pc bSva lue ( 1 ) = 1 : 

e e 

call aavlpc b : 

end t 

/*95 gv2 */ 

do ; 

dec lare I byte . 

parmfeount address; 
tad 1 = ra; 
tad2 - rb; 

tad3,ra 3 s tacktop - 2; 
rb = ra - 2t 
parmlcount = ara: 
call po pfcs tack; 

pcbptr = pcbptr + 4 + parmlcotutt * 2; 
do l 5 1 to pa rre#c o nj3 t : 

tea tva 1 ue 3 ara t 
call pop$s tack; 

If test value - int then 

call s torelln? ' . pcbptr , ara) ; 
else 

if test value = dec i then 

call s t oreSPJec t ra . pebp t r ) ; 
e Ise 

call gtorofs tr( ra. pcbptrJ s 
call popls t ack; 
pcbptr 3 pcbptr - 2; 
end ; 

ra = tad 1 ; 
r b 3 t a d 2 ; 
t ado 3 0: 

e nd ; 
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xl as 

do; 

hold' = rnask(ra); 
petfralue * hfaddr; 
call decrementSb th< l > \ 
if h#addr< 1) <> 1 th~:: 

ca 1 i nnsave ; 

'V else 

* h#add r ( 1 ) = ** ; 

call decremen t $h 1 k( 1 ; ; 
call p«shl»tack.(2) ; 

If check# 1 nt ( re t Sv? 1 ue ^ then 
ara r tfva lue ; 
e lse 
do ; 

. tempi = nask( .r-* 1 tSvt lue) ; 

call oove( (p mp 1 - t l , r a , t l + 2 ) : 

ra - ra + t l ; 
bra( 1) - braC 1) or OcOh; 

e nd ; 
e nd ; 

/*97 rtn */ 
do j 

rc = -re t#addr ; 
staoktop = g tacktop - 1 * 11; 
end ; 

end; /*end case*/ 

call s tep#inglcnt( 1) ; 

errorlf lag r false; 

end; /* of do for ever */ 

end execu t e ; 

ma ini ine • 

ca 11 cr 1 f ; 

call Ini t la 1 izeSexecu te j 

eofexit: /% on end of file of current disk file come here */ 

errorexit? /* regroup on console input err^r 
ca 1 1 execute ; 
call exl interp; 
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